Array of Bitmap

[Kuehter]

Habe schon in mehreren Foren geguckt, nur ich komme nicht auf den Fehler

Delphi-Quellcode:

type 
Tarraybmp = array [0..26] of TBitmap;

Delphi-Quellcode:

function TForm1.bmpcall: Tarraybmp;
var
    counter : integer;

begin
    for counter := 0 to 26 do
    begin
        Result[counter].Create;
    end;
    Result[0].Assign(Image1.Picture.Graphic);
    Result[1].Assign(Image2.Picture.Graphic);
    Result[2].Assign(Image3.Picture.Graphic);
    Result[3].Assign(Image4.Picture.Graphic);
    Result[4].Assign(Image5.Picture.Graphic);
    Result[5].Assign(Image6.Picture.Graphic);
    Result[6].Assign(Image7.Picture.Graphic);
    Result[7].Assign(Image8.Picture.Graphic);
    Result[8].Assign(Image9.Picture.Graphic);
    Result[9].Assign(Image10.Picture.Graphic);
    Result[10].Assign(Image11.Picture.Graphic);
    Result[11].Assign(Image12.Picture.Graphic);
    Result[12].Assign(Image13.Picture.Graphic);
    Result[13].Assign(Image14.Picture.Graphic);
    Result[14].Assign(Image15.Picture.Graphic);
    Result[15].Assign(Image16.Picture.Graphic);
    Result[16].Assign(Image17.Picture.Graphic);
    Result[17].Assign(Image18.Picture.Graphic);
    Result[18].Assign(Image19.Picture.Graphic);
    Result[19].Assign(Image20.Picture.Graphic);
    Result[20].Assign(Image21.Picture.Graphic);
    Result[21].Assign(Image22.Picture.Graphic);
    Result[22].Assign(Image23.Picture.Graphic);
    Result[23].Assign(Image24.Picture.Graphic);
    Result[24].Assign(Image25.Picture.Graphic);
    Result[25].Assign(Image26.Picture.Graphic);
    Result[26].Assign(Image27.Picture.Graphic);
end;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  DestRect : Trect;
  bmp : tarraybmp;
  verschiebung: integer;

begin
    bmp := bmpcall;
    verschiebung := 0;
    DestRect.Left := 20 + verschiebung;
    DestRect.Top := 20 + Verschiebung;
    Destrect.Right := Printer.PageWidth -4500 + verschiebung;
    Destrect.Bottom := Printer.PageHeight -6550 + verschiebung;
    Printer.Title := 'Hello';
    Printer.BeginDoc;
    Printer.Canvas.CopyRect(DestRect,bmp[0].Canvas,bmp[0].Canvas.ClipRect);
    //Printer.Canvas.Draw(30,30, Image1.Picture.Graphic);
    Printer.EndDoc;
end;

end.

steh gerade irgendwie aufen schlauch

ja wenn ich das aufrufen will kommt ein Exeptionfehler woran kann das den liegen ?
Vielleicht irgendwo ne Create oder so vergessen ?