OpenDialog Mehrfachauswahl, Filename

[Freyr77]

Irgendwie komm ich trotzdem nicht weiter.

Ich brauche dringend irgendeine Möglichkeit mehrere .dprojs auswählen und verarbeiten zu können. Ob durch Mehrfachauswahl auf einmal oder mehrere einzelne Auswahlen nacheinander.

Die ganze Prozedur mit der Auslesung und der Eintragung sieht (unfertig) so aus:

Delphi-Quellcode:

procedure TVersionNumberViewer.Button2Click(Sender: TObject);
var
  ProgrammName: string;
  iNummer, iName: integer;
  Abfrage: string;
  MaxAnzahl: integer;
begin
  MaxAnzahl := 8;
  OpenDialog1.Execute();

  // Programmname auslesen
  ProgrammName := (extractfilename(OpenDialog1.FileName));
  EditNameAuswahl.Text := (extractfilename(OpenDialog1.FileName));

  // XML-Dokument laden
  CurrentXML := NewXMLDocument;
  CurrentXML.LoadFromFile(String(OpenDialog1.FileName));
  CurrentXML.Active := True;

  // Versionsnummer auslesen
  for iNummer := 1 to MaxAnzahl do
  begin
    VersionsNummern[iNummer] := '0.0';
  end;

  // Eintragungen StringGrid
  for iNummer := 1 to MaxAnzahl do
  begin
    StringGrid1.Cells[0, 1] := ProgrammName;
    StringGrid1.Cells[1, iNummer] := inttostr(VersionsNummer);
  end;

Damit wird aber nur eins eingetragen. Weil dieses Programm aber unbedingt effizient werden muss, bräuchte ich hier dringend einen Lösungsansatz.