1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);

var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
OpenDialog1.Filter := 'Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*';
OpenDialog1.FilterIndex := 2; { Beim Start des Dialogs alle Dateien anzeigen } 
if OpenDialog1.Execute then
  with OpenDialog1.Files do
    for I := 0 to Count - 1 do
    begin
      AssignFile(F, Strings[I]);   { nächste Datei in Eigenschaft Files }

      Reset(F);
      Readln(F, FirstLine);    { Erste Zeile aus der Datei lesen }
      Memo1.Lines.Append(FirstLine);     { Zeile in das Memofeld einfügen }
      CloseFile(F);
    end;
end;