Memo zeilen anhängen

[SaFu]

Hi

ich habe vergessen wie ich nacheinander di zeilen anhäge und zwar Lade ich aus eine datei bestimmte zeilen in ein memo nur jetzt wird beim laden immerwieder die erste überschrieben wie mach ich das nochmal das alle 4 zeilen angezeigt werden

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',38);
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',39);
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',40);
  Memo1.Text := LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',41);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\syscon.s');
end;

function TForm1.LeseZeileAusDatei(Dateiname: String; Zeile: Integer): String;
var Zeilen : TStringList;
begin
  Zeilen := TStringList.Create;
  Zeilen.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s');
  try
    Result := Zeilen[Zeile-1];
  except
    Result := '';
  end;
end;

gruss sascha