Убегающая кнопка

var
  i:integer;
begin
  i:=random(4) ;
  case i of
    0: Button1.Left:=Button1.Left+Button1.Width;
    1: Button1.Left:=Button1.Left-Button1.Width;
    2: Button1.Top:=Button1.Top+Button1.Height;
    3: Button1.Top:=Button1.Top-Button1.Height;
  end;
    if Button1.Left<0 then
      Button1.Left:=0;
    if (Button1.Left+Button1.Width)>Form1.Width then
      Button1.Left:=Form1.Width-Button1.Width;
    if Button1.Top<0 then
      Button1.Top:=0 ;
    if (Button1.Top+Button1.Height)>Form1.Height then
      Button1.Top:= Form1.Height-Button1.Height ;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button2: TButton;
    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Randomize;
Button2.Left:=Random(791)-144;
Button2.Top:=Random(461)-40;
end;
 
 
 
end.

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Button2.Top:=Random(333);
Button2.Left:=Random(333);
end;
 
end.