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 :D )

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

[Neutral General]

Delphi-Quellcode:

case key of
    38 :  begin
            if Shape1.Top > oben then
              Shape1.Top := Shape1.Top - 4;
          end;

//...

Oder eventuell besser:

Delphi-Quellcode:

if abs(Shape1.Top -oben) <= 3 then

PS: Ich gehe davon aus das Shape2 = Shape1 ist?
Also das das gleiche gemeint ist...

Gruß
Neutral General