Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

[cruso]

Um eine Datei hinzuzufügen habe ich das bisher so geregelt:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
try
  ListBox1.Items.Add(OpenDialog1.FileName);
  ListBox1.Items.SaveToFile(GAD+'Data.txt');
except
  Application.MessageBox('Die Datei konnte nicht geladen werden!','Unzulässige Benutzereingabe',16);
end;
end;

Wie muss ich das nun regeln?