TFileStream: Textdatei auslesen

[Pseudemys Nelsoni]

hi,

ich möchte aus einer datei meine 15zeichen langen strings auslesen, ich habe mir gedacht das ich es mit einer while schleife mache, nur wie? ich dachte an "while bytesread = 15 do...".
Das würde aber heissen das ich das "Read" von TFileStream VOR der schleife schreiben müsste... aber da das read wiederrum nicht in der schleife ist kann damit auch nur 1 durchgang funktionieren oder?

ich hatte das bis jetzt ca so und weiss nich weiter:

Delphi-Quellcode:

procedure TBL.Load(const AFileName: string);
var
  Fs: TFileStream;
  BytesRead: Integer;
  Buffer: array[1..15] of Char;
begin
  Fs := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
  try
    BytesRead := Fs.Read(Buffer, Length(Buffer));
    while BytesRead = 15 do...
    // hm....
  finally
    Fs.Free;
  end;
end;