Form Berjalan

var
  Form2: TForm2;
var
  A:boolean ;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin

timer1.Enabled := true ;
a:=false ;

end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if a = false then
begin
form2.Left := form2.Left + 2 ;

if form2.Left >= (screen.Width - form2.Width ) -10 then
a := true;

end else begin

form2.Left := form2.Left - 2 ;

if form2.Left <= 1 then
a := false;
end;


end;