determinar el tamaño de una fichero

[[Chris]]

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, {segundo parámetro*});
        Archivo.Sizeof // <-- esta función te da el tamaño en bytes del archivo elegido.

        // ... guardar el archivo en la DB si el tamaño es adecuado.
    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