coding membuat teks berjalan dan berkedip secara bersamaan

var
  Form1: TForm1;
  jeda : integer = 200 ;
  n : integer ;
  tulisan : string = 'Animasi Text' ;
  batas_kiri, batas_kanan : integer ;


implementation

uses Unit4, Unit12, Unit2, Unit3;

procedure delay(t:LongInt);
var mulai, selesai:LongInt ;
begin
mulai := GetTickCount ;
repeat
Application.ProcessMessages ;
selesai := GetTickCount ;
until (selesai-mulai) >= t ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
batas_kanan:=panel1.Left-label1.Width;
  batas_kiri:=panel1.Left+panel1.Width;
  if label1.Left=batas_kiri then
    begin
      label1.Left:=batas_kanan
    end
  else
    begin
      label1.Left:=label1.Left+1;
    end;
end;

end.