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

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;

Съдържаниет е скрито
Влезте за да го видите