Подсчет количества строк в файле

m:=0;
 
 streamH:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
 
    StreamH.Seek(0, soFromEnd);
 
    Begin
     inc(m);
     SetLength(str,m*sizeof(newTp));
       StreamH.ReadBuffer(str[m], SizeOf(str[m]));
 End;
    k:=0;
  for i:=1 to m do
   Begin

procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  S : String;
  Cnt : Integer;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.ExeName )
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  AssignFile(F, Od.FileName);
  Reset(F);
  Cnt := 0;
  while not Eof(F) do begin
    //Читаем строку.
    Read(F, S);
    //Eoln(F) возвращает True, если файловый указатель оказался
    //на позиции конца строки, либо на позиции конца файла.
    if Eoln(F) then Inc(Cnt);
    //Читаем знак конца строки (если он присутствует).
    Readln(F);
  end;
  CloseFile(F);
 
  //Ответ.
  ShowMessage('Всего строк в файле: ' + IntToStr(Cnt));
end;