Проверить размер подгружаемой фотографии

[Dux]

Загружаю фото в БД в BLOB-поле следующим образом:

 if OpenDialog1.Execute then
          begin
            DataModule1.FDQuery1.edit;
          
            // Записываем в поле BLOB выбранное изображение
            Blob:=TFDBlobStream.Create(DataModule1.FDQuery1.FieldByName('Photo'),bmWrite);
            Blob.LoadFromFile(OpenDialog1.FileName);
            Blob.Free;
            DataModule1.FDQuery1.Post;

           //и сразу отображаем в TImage
           try
                jpg:=TJPEGImage.Create;
                Blob:=TFDBlobStream.Create(DataModule1.FDQuery1.FieldByName('Photo'),bmRead);
                jpg.LoadFromStream(Blob);
                PersonalCard.Image1.Picture.Assign(jpg);
                jpg.Free;
                Blob.Free;
              except
            begin
             jpg.Free;
             Blob.Free;
            end;
           end;
        end;

Вопрос: как перед загрузкой проверить размер изображения, к примеру можно подгружать файлы размером не более 50 kb?

Заранее спасибо за советы!

[Stilet]

Использовать FindFirst() для OpenDialog1.FileName, который вернет запись TSearchRec среди полей которой будет и размер файла.

[Dux]

Сообщение от Stilet

Использовать FindFirst() для OpenDialog1.FileName, который вернет запись TSearchRec среди полей которой будет и размер файла.

Спасибо, то что нужно

FindFirst(OpenDialog1.FileName,faAnyFile,SearchRec);
ShowMessage(inttostr(SearchRec.Size));