Bewegung begrenzen

[PiQ]

so sieht die bewegung eines normalen rechtsecks aus. nun soll das rechteck aber nicht mehr weiter bewegt werden können wenn ich den rand von meinem programm oder einer anderen begrenzung erreicht habe! (soll für pong sein )

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    38 :  begin
      shape2.Top := shape2.Top - 4;
          end;
    40 :  begin
      shape2.Top := shape2.Top + 4;
          end;
    87 :  begin
      shape1.Top := shape1.Top - 4;
          end;
    83 :  begin
      shape1.Top := shape1.Top + 4;
          end;
  end;
  if shape1.Top = button1.top then //was muss ich hier hinschreiben??
end;

MfG PiQ