Фигура останавливается при касании с границей ДЕЛФИ

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  dx,dy:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with Shape1 do
 begin
  left:=Form1.Width div 2-10;
  top:= Form1.ClientHeight div 2-10;
  width:=20;
  height:=20;
 end;
Timer1.Enabled:=false;
Timer1.Interval:=50;
Caption:='Управление стрелками, пауза - любая клавиша, выход - Esc';
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Timer1.Enabled:=true;
case   key of
vk_LEFT: begin
         dx:=-5;
         dy:=0;
         end;
 
VK_RIGHT:begin
         dx:=5;
         dy:=0;
         end;
 
vk_UP:begin
      dy:=-5;
      dx:=0;
      end;
 
VK_DOWN:begin
        dy:=5;
        dx:=0;
        end;
VK_ESCAPE:close;
else
 begin
 dx:=0;
 dy:=0;
 end;
end;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ((Shape1.Left>5)and(dx=-5))
or((Shape1.Left<Form1.ClientWidth-Shape1.Width-5)and(dx=5))
  then Shape1.Left:=Shape1.Left+dx;
if ((Shape1.Top>5)and(dy=-5))
or((Shape1.Top<Form1.ClientHeight-Shape1.Height-5)and(dy=5))
  then Shape1.Top:=Shape1.Top+dy
end;
 
end.

if (figure.left<=0) or (figure.Top<=0) or 
    (figure.Left+figure.Width>=Width) or (figure.Top+figure.Height>=Height) 
    then {...}