Mehrere Dateien mit OpenDialog öffnen und in Listview eintra

[mlspider]

OK, habe jetzt einfach mal den Code übernommen.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
 OpenDialog2.Options := [ofAllowMultiSelect, ofFileMustExist];
  if OpenDialog2.Execute then
    with OpenDialog2.Files do
      for I := 0 to Count - 1 do
      begin
        AssignFile(F, Strings[I]);

        Reset(F);
        Readln(F, FirstLine);
        Memo1.Lines.Append(FirstLine);
        CloseFile(F);
      end;
end;

Das Problem ist nur, das ich jeweils den gesamten Pfad Dateiname im Memo brauche. Also nicht den Inhalt der Datei.