Mehrere Bilder aus einer ListBox speichern!

[ünneb]

Naja, also wir haben das so gemacht, dass wir mehrere Bilder öffnen in dem wir die in einer ListBox zwischenspeichern. Und wenn wir dann auf z.bsp. auf das 2te Bild klicken, dann wird das im TImage angezeigt.
so,dass ist Quelltext zum öffnen der Bilder und dann zum einlesen in die ListBox:

Delphi-Quellcode:

//Öffnen bei Projekt
procedure TForm1.ffnen2Click(Sender: TObject);
var jpg    : TJPEGImage;
    filename : string;
begin
  if OpenPictureDialog1.Execute then
  begin
    filename := OpenPictureDialog1.FileName;
    jpg := TJPEGImage.Create;
    jpg.LoadFromFile(filename);
    Image1.Picture.Graphic := jpg;
    FreeAndNil(jpg);
    Panel1.Caption:=ExtractFilename(filename);
    Panel2.Caption:= filename; //Dateipfad ausgeben
    Listbox1.Items.AddStrings(OpenPictureDialog1.Files);
  end;

end;
{------------------------------------------------------------------------------}
//Auswählen von einem Bild in ListBox und ausgabe in TImage
procedure TForm1.ListBox1Click(Sender: TObject);
var jpg    : TJPEGImage;
    filename : string;
begin
  filename:=ListBox1.Items[ListBox1.ItemIndex];
  jpg := TJPEGImage.Create;
  jpg.loadfromfile(filename);
  Image1.Picture.Graphic := jpg;
  FreeAndNil(jpg);
  Panel1.Caption:=ExtractFilename(filename);
  Panel2.Caption:= filename;
end;

Vielleicht hilft dir das ja weiter?!...