Figur läuft einfach durch die Mauer

[Coxy]

Hallo,
ich habe ein Problem: und zwar bewegen sich meine Figuren manchmal durch die wand obwohl mein script das verbietet Oo
das passiert nur manchmal aber es trotzdem nervig. Weiß jemand vielleicht woran das liegt?

Der Script ist

Delphi-Quellcode:

If (richtung=1) and (img_Stern.Top + img_Stern.Height + 100 > form1.Height) then Richtungstern :=2;
If (richtung=2) and (img_Stern.Left + img_Stern.Width + 100 > form1.Width) then Richtungstern :=3;
If (richtung=3) and (img_Stern.Top < 100) then Richtungstern := 4;
If (richtung=1) and (img_Stern.Left < 100) then Richtungstern :=1;

If (richtung=2) and (img_Stern.Top < 100) then Richtungstern :=1;
If (richtung=1) and (img_Stern.Left + img_Stern.Width + 100 > form1.Width) then Richtungstern :=4;
If (richtung=4) and (img_Stern.Top + img_Stern.Height + 100 > form1.Height) then Richtungstern := 3;
If (richtung=3) and (img_Stern.Left < 100) then Richtungstern :=2;