Koordinaten von einer Grafik

[Z32]

aha...jetzt gehts, aber es ist ein eigenartiges Fähnomen aufgetretten. Wenn ich treffe, erscheint die showmessage "Getroffen" immer 4 mal, also man muss 4 mal auf ok klicken. Woran kann das denn liegen ??? Irgentwie merkwürdig. Lieg das am Timer.

Hier nochmal der Code des Timers.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
BlockInput(true);
image2.Top:=image2.Top+feuer;
if (image2.top>image3.top) and(image2.top<image3.top+image2.Height)
and (image2.left>image3.left) and(image2.left<image3.left+image3.width)
then begin
showmessage('Getroffen');
end;
if image2.top<0 then
begin
repeat
image2.Top:=image2.Top+zuruck;
until image2.top=216;
image2.Picture := nil;
BlockInput(false);
timer1.Enabled:=false;
end;
end;