1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm2.Timer4Timer(Sender: TObject);

if (Image4.Left = 0) or (Image4.Top = 0) then bewegung:=bewegung*(-1);

if (Image4.Left <=  (Image1.Width-Image4.Width) ) or (Image4.Top <= (Image1.Height - Image4.height) )  then
 begin
 Image4.Left:=Image4.Left-bewegung;
 Image4.Top:=Image4.Top-bewegung;
 end
 else
 begin
 Image4.Top:=Image4.Top-bewegung;
Image4.Left:=Image4.Left-bewegung;
 end; 

 if (image4.Left = 557 ) and (image4.Top = 332) then
 begin
    Image4.Top:=Image4.Top+bewegung;
     Image4.Left:=Image4.Left+bewegung;
 end;					

1:

var vonLinksObenNachRechtsUnten:bool;					

1:
2:

if (Image4.Left = 0) or (Image4.Top = 0) then 
    bewegung:=bewegung*(-1);					

1:
2:

if (Image4.Left >= Image1.Width) or (Image4.Top >= Image1.Height) then 
    bewegung:=bewegung*(-1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm2.Timer4Timer(Sender: TObject);
begin
if (Image4.Left <= 0) or (Image4.Top <= 0) then 
   bewegung:=bewegung*(-1)
else if (Image4.Left >= Form1.Width) or (Image4.Top >= Form1.Height)
   bewegung:=bewegung*(-1);
Image4.Left:=Image4.Left-bewegung;
Image4.Top:=Image4.Top-bewegung;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Timer4Timer(Sender: TObject);
begin
  if (Image4.Left <= 0) or (Image4.Top <= 0) then 
    Bewegung := 1
  else if (Image4.Left >= Form1.Width) or (Image4.Top >= Form1.Height) then
    Bewegung := -1;

  Image4.Left := Image4.Left + Bewegung;
  Image4.Top := Image4.Top + Bewegung;
end;