Проверка размеров изображения

[admroot]

При нажатии на кнопку открывается диалоговое окно с выбором изображения... Хочу сделать проверку, если изображение слишком маленькое то показать сообщение и не загружать его в Image1

Вот сама процедура - не работает

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
if (Form1.Image1.Picture.Width; > 100) AND (Form1.Image1.Picture.Height > 100) then
ShowMessage ('Размер изображения слишком мал')
else
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
OpenPictureDialog1.FreeOnRelease;
end;

В чем проблема, кто подскажет где я ошибся?

[MadReason]

для вычисления размеров имэйджа в него нужно сначала что-то подгрузить, а вы подгружаете после проверки.
как вариант сначала загружать в невидимый имэйдж, если подходит то копировать от туда изображение в основной. или через спецификацию, считывать из файла блок отвечающий за размер

[yasic]

.....
var
Form1: TForm1;
Pic : TBitmap;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Pic := TBitmap.Create;
Pic.LoadFromFile('c:\test.bmp');
if (Pic.Height < 100) AND (Pic.Width < 100) then
Image1.Canvas.Draw(0, 0, Pic) else
ShowMessage('Изображение слишком велико!');
end;

end.

[yasic]

путь к изображению сам получишь

[admroot]

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

для вычисления размеров имэйджа в него нужно сначала что-то подгрузить, а вы подгружаете после проверки.
как вариант сначала загружать в невидимый имэйдж, если подходит то копировать от туда изображение в основной. или через спецификацию, считывать из файла блок отвечающий за размер

Спасибо огромное. не знал что delphi не умеет считывать загружаемые изображения на лету.

[admroot]

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

путь к изображению сам получишь

огромное спасибо... все работает как надо