Tulisan Berjalan Marquee

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Left := Label1.Left -2;  //Nilai (2) tingkat kecepatan bergerak
  if label1.Left <= -200 then     
   label1.Left := 422;
end;