Stringgrid mit Bildern scrollen

[juelin]

Hi,
ich habe Delphi XE5.
Ich habe ein Stringgrid in dem ich in Column 1 Bilder anzeige (siehe Code).

var e1bilder: array[1..99999] of string;
var e1bildnum: integer;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var r: TRect;
var u: integer;
var t: string;
begin
if ((ARow = 0) and (ACol = 0)) then
begin
StringGrid1.RowHeights[ARow]:=32;
end else begin
if ((ARow > 0) and (ACol = 0)) then
begin
if ((e1bildnum > 0) and (ARow <= e1bildnum)) then
begin
t:=e1bilder[ARow];
u:=1;
if t <> '' then
begin
try
Image1.Picture.LoadFromFile(t);
except
u:=0;
end;
if u = 1 then
begin
r.Left:=0;
r.Right:=Image1.Picture.Width-1;
r.Top:=0;
r.Bottom:=Image1.Picture.Height-1;
Rect.Left:=0;
Rect.Right:=Image1.Picture.Width-1;
Rect.Top:=32+(ARow-1)*80+ARow;
Rect.Bottom:=Rect.Top+Image1.Picture.Height-1;
StringGrid1.Canvas.CopyRect(Rect, Image1.Canvas, r);
end;
end;
end;
end;
end;
end;

Das klappt auch ganz gut.
Nur wenn mehr Zeilen im Stringgrid sind, als auf dem Bildschirm passen,
und ich nun nach unten scrolle
dann sind die Bilder unterhalb des 1. Bildschimes weg.

Hat da jemand eine Idee.
Es gibt leider kein Ereignis "OnScroll".

Danke und Gruß
Jürgen