Лабел на зоом

Здравейте на всички !

Бих искал да ви попитам някой дали знае как да накарам един лабел при фокусиране ( знам няма фокус но аз го правя по друг начин ) да има ефект готин като да речем от програмата на "NERO HOME" фонта да стане голям и после все едно има ефекта на зоом и пак добива нормални форми . Как правя ефекта на фокуса когато оперделен лабел е селектиран избирам определен цвят и с по голям фонт !
Ето пример :
with TLabel( FindComponent( LabelArray[ ArrayPos ] ) ) do
begin
Font.Color := clCream; //основния свят които показва че е фокус
Font.Size := 11; //Тука ми се иска да стане голямо и след това
Sleep( 100 ); //да се умали
Font.Size := 10;
Sleep( 100 );
Font.Size := 9; //като това е ще е реалния размер

end;

знам Sleep( 100 ) че няма да работи никак сложих го просто да уточня какво искам !! пробвах да сложа и Application.ProssecMessage но пак същото !! :((

Благодаря предварително !!

Няма да е ефектно, но кода за това което искаш е:

1) Слагаш един етикет Label1
2) Слагаш един таймер Taimer1
3) Слагаш една глобална константа const F: boolean=true;
4) На събитието на таймера слагаш:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if F then

  if Label1.Font.Size<16 then

    Label1.Font.Size:=Label1.Font.Size+1

  else

    F:=false

else

  if Label1.Font.Size>8 then

    Label1.Font.Size:=Label1.Font.Size-1

  else

    F:=true;

end;

чети и дишай по-леко

1.Слагаш лабелче
2. Изчисляваш му координатите(Left,Width,Top,Height)
3. Прихващаш събитието OnMouseMove на ф-мата
4. Ако курсора на мишока е в четириъгълника - сменяш шрифта

Дано съм схванал правилно въпроса