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:
32:
33:
34:
35:
36:
37:
38:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=0;
while i<=high(bildliste) do
begin
 if bildliste[i].tag=1 then
 begin
  if (bildliste[i].top<=form1.clientheight) then
  begin
   bildliste[i].top:=bildliste[i].top+15;
  end
  else
  begin
   bildliste[i].tag:=0;
   bildliste[i].left:=-100;
   bildliste:=deletearrayeintrag(bildliste,i);
   dec(i);
  end;
 end
 else if bildliste[i].tag=0 then
 begin
  if (bildliste[i].left>=0) and (bildliste[i].left<=form1.ClientWidth) then
  begin
   bildliste[i].left:=bildliste[i].left+10;
  end
  else
  begin
   bildliste[i].left:=-100;
   bildliste:=deletearrayeintrag(bildliste,i);
   dec(i);
  end;
 end;
inc(i);

end;

end;					

1:
2:
3:

MainBmp: TBitmap;
MoorhuhnBmp: TBitmap
Huehner: array of TPoint;					

1:
2:
3:
4:
5:

MainBmp:=TBitmap.Create;
MainBmp.Width:=Form1.Width; //wenn sich die Formulargröße deiens Forms ändern kann, dann musst du im OnResize-Ereignis die größen neu setzten und die Paint-Procedur erneut aufrufen ;).
MainBmp.Height:=Form1.Height;
MoorhuhnBmp:=TBitmap.Create;
MoorhuhnBmp.LoadFromFile(...);					

1:
2:
3:
4:

procedure TForm1.FormPaint(Sender: TObject);
begin
 BitBlt(Form1.Canvas.Handle, 0, 0, MainBmp.Width, MainBmp.Height, MainBmp.Canvas.Handle, 0, 0, SrcCopy); //zeichnet das Bild in dien obere linke Ecke (0|0)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Draw;
var
  i: integer;
begin
  Pen.Color:=clWhite;
  Brush.Color:=clWhite;
  Rectangle(MainBmp.Canvas.Handle, 0, 0, MainBmp.Width, MainBmp.Height);
  for i:=0 to High(Huehner) do
  begin
    BitBlt(MainBmp.Canvas.Handle, Huehner.X, Huehner.Y, MoorhuhnBmp.Width, MoorhuhnBmp.Height, MoorhuhnBmp.Canvas.Handle, 0, 0, SrcCopy);
  end;
  BitBlt(Form1.Canvas.Handle, 0, 0, MainBmp.Width, MainBmp.Height, MainBmp.Canvas.Handle, 0, 0, SrcCopy); //aufs Form zeichnen
end;