Delphi dicas

Verificar tamanho de um arquivo imagem

Var

Figura: file of Byte;

begin

        if OpenPictureDialog.Execute then

        begin

                AssignFile(Figura, OpenPictureDialog.FileName);

                Reset(Figura);

                try

                if FileSize(Figura) > 512000 then

                ShowMessage('Arquivo maior que 500kb!')

                else

                DBImage.Picture.Bitmap.LoadFromFile(OpenPictureDialog.FileName);

                finally

                CloseFile(Figura);

        end;

end;

end;

por : Donizetti