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

procedure TfrmEditor.drwGdFeldBilderDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

var
  i, Anzahl : byte;
  bild : TBitmap;

begin
  bild := TBitmap.Create;
  Anzahl := imgLstFeldBilder.Count;
  drwGdFeldBilder.RowCount := Anzahl;
  for i := 0 to Anzahl-1 do
  begin
    drwGdFeldBilder.Col := 0;
    drwGdFeldBilder.Row := i;
    imgLstFeldBilder.GetBitmap(i, bild);
    drwGdFeldBilder.Canvas.StretchDraw(rect, bild);
  end;
  bild.Free;
end;					

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:

procedure TfrmEditor.drwGdFeldBilderDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

var
  i, Anzahl : byte;
  bild : TBitmap;

begin
  bild := TBitmap.Create;     //Bitmap erstellen
  Anzahl := imgLstFeldBilder.Count;  //die Anzahl-Varibale brauchst du nicht
  drwGdFeldBilder.RowCount := Anzahl;  //das setzen von rowcount auf die anzahl der Bilder hat hier im OndrawCellereignis nix zu suchen, keine Ahnung wie dein Prog aufgebaut ist, aber im Oncreate der Form/beim Ändern der Imagelist ist ein bessere Platz für das setzen des rowcounts

  //jetzt durchläufst du alle bilder deiner Liste
  // da du aber innerhalb dieses Ereignisses col und Row setzt, verliert die Zelle den Fokus und eine andere erhält den Fokus und diese Zellen müssen neu gezeichnet werden (ondrawcell wird aufgerufen, dort wird wieder der Fokus geändert undwieder gehts von vorne los ....). das ist die Endlosschleife
  
  for i := 0 to Anzahl-1 do
  begin
    drwGdFeldBilder.Col := 0;
    drwGdFeldBilder.Row := i;
    imgLstFeldBilder.GetBitmap(i, bild);
    //hier ist der zweite Fehler, rect ist immer die zuzeichnende Zelle, 
    //durch deine Schleife zeichnest du alle Bilder in diese Zelle
    drwGdFeldBilder.Canvas.StretchDraw(rect, bild);
  end;
  bild.Free;
end;					

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

bild:=TBitmap.create;
try
  imglistfeldBilder.getbitmap(arow,bild)
  drwgdfeldBilder.canvas.stretchdraw(rect,bild);
finally
  bild.free;
end;					

1:
2:
3:
4:

drawcell(Sender, Col:0,Row:0, rect(0,0,100,10),  State);
drawcell(Sender, Col:0,Row:1, rect(0,10,100,20),  State);
drawcell(Sender, Col:0,Row:2, rect(0,20,100,30),  State);
usw.