Conocer el tamaño en bytes de un fichero de texto.

procedure TForm1.Button1Click(Sender: TObject);
Var
  Fichero: File;
  Tamanyo: Integer;
Begin
   Try
     AssignFile(Fichero,'c:\elfichero.txt');
     Reset(Fichero,1);
     Tamanyo := FileSize(Fichero);
     CloseFile(Fichero);
     showmessage(FloattoStr(Tamanyo));
   Except
     showmessage('Error');
   End;
End;