memo zeilen in bestimmte zeile einer Datei

[SaFu]

Oh danke garnicht gesehen

Delphi-Quellcode:

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;
 zeilen.Free;  // hier
end;

kann ich das ersetzen der zeilen eigentlich nicht mit dem gleichen code machen nur anders herum es sind ja immer die gleichen zeilen