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;



  if label1.Left=batas_kiri then
    begin
      label1.Left:=batas_kanan
    end
  else
    begin
      label1.Left:=label1.Left-1;
    end;

end;

procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);
begin

  timer1.Interval:=200;

end;

procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);
begin

  timer1.Interval:=50;

end;

procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject);
begin

  timer1.Interval:=10;

end;

procedure Tfrm_materi10_teksberjalan.Label4Click(Sender: TObject);
begin

end;

procedure Tfrm_materi10_teksberjalan.Label1Click(Sender: TObject);
begin

end;

procedure Tfrm_materi10_teksberjalan.Label2Click(Sender: TObject);
begin

end;