procedure Thread.Execute;
begin
  { Place thread code here }
  repeat
    Application.ProcessMessages;
  until terminated;
end;

function Thread.WalkTo(APoint: TPoint): Boolean;
begin
  WalkToPoint := APoint;
  synchronize(Ziel);
  result := false;
  repeat
    if (Form1.An.Ziel.X <> APoint.X) or (Form1.An.Ziel.Y <> APoint.Y) then exit;
    Application.ProcessMessages;
  until (Form1.An.Left = APoint.X) and (Form1.An.Top = APoint.Y);
  result := true;
end;

procedure Level.Ziel;
begin
  Form1.Ziel(WalkToPoint); // Setzt Form1.An.Ziel auf WalkToPoint
end;