Bilddateien auf Vorrat laden für spätere Darstellung in TBitmap

[mcmichael]

Problem gelöst, auch jpgs laufen jetzt.
Vielen Dank für die Lösung der Gehirnbremse...

Delphi-Quellcode:

procedure preloadImage(fname:string);
var i,z:integer;
begin
if preload then
  begin
  //doubletten vermeiden
  z:=0;
  for i := 1 to icmax do
    if icname[i]=fname then
      begin
      z:=i;
      break;
      end;
  if z=0 then
    begin
    inc(icmax);
    with TPicture.Create do
      try
        IC[icmax]:=TBitmap.Create;
        LoadFromFile(fname);
        IC[icmax].Assign(Graphic);
        icname[icmax]:=fname;
      finally
        Free;
      end;
    icname[icmax]:=fname;
    end;
  end;
end;