Text Berjalan

Script :
procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject);
begin
Label3.Caption:=timetostr(time);
Label4.Caption:=datetostr(now);
  batas_kiri:=panel1.Left-label1.Width;
  batas_kanan:=panel1.Left+panel1.Width;