파일 용량 알자

var
 FHandle, intSize : Integer;
begin

  OpenDialog1.Filter:= 'Image files (*.jpg;*.jepg;*.gif)|*.jpg;*.jepg;*.gif';
  if OpenDialog1.Execute then
  begin
    // 안되면 2번째 인자를 바꿔보면 될듯
    // GetFileSize는 Win32API 임
    FHandle := FileOpen(OpenDialog1.FileName, fmOpenRead+fmShareDenyNone);
    intSize  := GetFileSize(FHandle, nil);
    FileClose(FHandle);
end;