Auslesen wie viele Einträge ne Txt-Datei hat (Tfilestream)

[Delphi-Noobie]

hi,

kann man mit irgend ein Befehl auslesen, wieviel Einträge in einer Textdatei sind?
so Speicher ich sie aus einem Array:

Delphi-Quellcode:

type
  TMyArray = array of String;
const
  IDENT_TMYARRAY = 'TMyArray';
  BUF_SIZE = 4096;

procedure SaveToFile(const MyArray: TMyArray; const FileName: String); //filename irgendwas mit txt
var
  Stream: TFileStream;
  Writer: TWriter;
  I: Integer;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Writer := TWriter.Create(Stream, BUF_SIZE);
    try
      Writer.WriteSignature;
      Writer.WriteIdent(IDENT_TMYARRAY);
      for I := 0 to 45 do                      // sind 46 einträge im Array
        Writer.WriteString(MyArray[I]);
    finally
      Writer.Free;
    end;
  finally
    Stream.Free;
  end;
end;

jetzt sieht man in der txt-Datrei die einträge. Aber wie kann ich auslesen, wie viele es sind, dass also als result 46 raus kommt?