Import af en række billeder

Prøv det her:

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Dir: String;
  Bitmaps: array of TBitmap;
  FileList: TStringList;
  I:Integer;
begin
  Dir := 'D:';
  FileList := TStringList.Create;
  if FindFirst(Dir + '\*.bmp', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        FileList.Add(Dir+'\'+SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;
  SetLength(Bitmaps, FileList.Count);
  for I := 0 to FileList.Count - 1 do
  begin
    Bitmaps[I] := TBitmap.Create;
    Bitmaps[I].LoadFromFile(FileList.Strings[I]);
  end;


  Image1.Picture.Bitmap := Bitmaps[0];
end;

Hvis der ikke er mange filer er det en fin løsning .. Men ellers så skriv igen så kan jeg en anden løsning

Det var godt nok en masse billeder. Men jeg har omskrevet det, så den kun tager et billede ind i hukommelsen  af gangen.