Größe einer Bilddatei per OpenPictureDialog ermitteln

[stho]

so, ich habs jetzt so gemacht
Danke für euren Rat

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
    var
    Image : TImage;
begin
    if OpenPictureDialog1.Execute then
    begin
       edit_Firmenlogo.text := OpenPictureDialog1.FileName;

       Image := TImage.create(nil);
       Image.Picture.LoadFromFile(edit_Firmenlogo.text);

       ShowMessage(IntToStr(image.Picture.Height));
       ShowMessage(IntToStr(image.Picture.Width));
    end;
end;