Grenzen? Oo

[Rickiwarhammer]

hi
ich habe ein kleines Problem mit nem Spiel XD
Also das Spiel ist eine Art Katz und Maus Spiel man hat die Maus und muss vor der Katze flüchten! So hier mein problem: ich ahbe bis jetzt zwei shapes für Katze und Maus benutzt! man kann die Maus mit den Pfeiltasten Steuern (soweit so gut) Aber jeztztz wollte ich Grenzen ins Spiel einbauen damit nicht die katze oder die Maus einfach mal stunden durch das Spiel läuft und man einen Meter lagnen Scroll Bar hat XD hier so hatte ich das gemacht:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
If Maus.Left > ClientWidth then
Maus.Left := ClientWidth;
If Katze.Left > ClientWidth then
Katze.Left := ClientWidth;
If Maus.Top > ClientHeight then
Maus.Top := ClientHeight;
If Katze.Top > ClientHeight then
Katze.Top := ClientHeight;
end;

Ich hatte das immer so geamcht um jetzt nicht tausende Rects und so zu benutzen ^-^ Es hat immer geklappt bis auf jetzt Oo sie Maus kann immer noch raus! aber wieso bitte brauche hilfe!