Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

[turboPASCAL]

Delphi-Quellcode:

procedure TFormX.ButtonClick...
var i: Integer;
begin
  OpenDialog1.Options := [ofReadOnly, ofAllowMultiSelect];

  if OpenDialog1.Execute then
  begin
   memo1.Lines :=  OpenDialog1.Files;

   //oder einzeln auslesen:
   // for i := 0 to  OpenDialog1.Files.Count - 1 do
   //   ... := OpenDialog1.Files[i];

  end;
end;