Label Berjalan

procedure TForm2.Timer1Timer(Sender: TObject);
begin
label1.Left := label1.Left - 3 ;

if label1.Left <= 0 - label1.Width - 5 then
label1.Left := form2.Width + label1.width + 5;


end;