Utiliza la función de Sizeof de la clase TFileStream. Ejemplo:
Código Delphi
[-]
var
Archivo: TFileStream;
begin
if OpenDialog1.Execute then
try
Archivo := TFileStream.Create(OpenDialog1.Filename, );
Archivo.Sizeof
finally
Archivo.Free;
end;
* No recuerdo el nombre del segundo parámetro de constructor. Sé que es para determinar el modo de acceso al archivo. Consulta la ayuda de Delphi al respecto.
Saludos,
Chris