Datei teilweise lesen

[klebe7]

Hallo

Ich brauche eine Funktion, die eine Datei teilweise ließt, also den Text von einer bestimmten Zeile bis zur einer bestimmten Zeile.
So weit bin ich bisher, aber komme nicht so richtig weiter:

Delphi-Quellcode:

function ReadPart(const AFile: string; AFromLine, AToLine: Integer;
  var APart: string): Boolean;
begin
  Result := True;
  try
    with TFileStream.Create(AFile, fmOpenRead or fmShareDenyNone) do
      try
        
      finally
        Free;
      end;
  except
    Result := False;
  end;
end;

Ich hoffe auf ein paar Tips, wie man das am besten und am schnellsten lösen kann.

Achja und die Funktion sollte möglichst speicherschonend arbeiten, also die Datei z.B komplett in eine StringListe o.Ä zu laden geht nicht.