Savedialog Frage

[Luckie]

Poste doch beim nächsten mal nur den relevanten Code.

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject); 
begin 
if OpenDialog1.Execute then 
  OpenDialog1.Filename := ListBox3.Items.Add(ExtractFileName(OpenDialog1.FileName)); 
  ListBox3.Items.Add(ExtractFileName(OpenDialog1.FileName)); 
end;