1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm2.MoveTimer(Sender: TObject);
begin
  Application.ProcessMessages;
  if rechts then
  begin
    if dot1.Left < comp.Left + dot1.Width then
    begin
      dot1.Left := dot1.Left+3;
      dot2.Left := dot2.Left+3;
      dot3.Left := dot3.Left+3;
    end else
    begin
      rechts := false;
      links := true;
    end;
  end;
//=============================
  if links then
  begin
    if dot3.Left > handy.Left + dot3.Width then
    begin
      dot1.Left := dot1.Left-3;
      dot2.Left := dot2.Left-3;
      dot3.Left := dot3.Left-3;
    end else
    begin
      rechts := true;
      links := false;
    end;
  end;
end;