Saber el Tamano de un Archivo de texto

[[oscarac]]

esto es lo que estoy haciendo

Código Delphi [-]
procedure TfrmActualizacion.CargarArchivoTexto;
var F: TextFile;
sLinea: String;
_Tamanio : Double;
begin
  AssignFile( F, edtArchivo.Text);
//  _Tamanio := FileSize(f);
  Reset( F );
  while not Eof( F ) do
  begin
    ReadLn( F, sLinea );
  end;
  CloseFile( F );
end;

porque cuando quiero ponerle un break no "para" el programa donde se supone debe parar