怎样读取图像的分辨率？ ( 积分: 100 )

我在取图像的分辨率的时候，对一些进行编辑过的图片取出的分辨率总是不正确，有那位大侠，能提供一点这方面的资料，或比较直接的方法。我在网上找了一下方法，但是这些方法都不能完全准确的取出图像的分辨率。
使用的语言 ：Delphi 处理的图像是 Jpg格式
下面是我用的一个方法
procedure TForm1.Button1Click(Sender: TObject);
var
s: TfileStream;
buf:byte;
aa,bb,cc:string;
begin
form1.OpenDialog1.Execute;
s:= TfileStream.Create(opendialog1.FileName, fmOpenRead);
s.Seek(14, soFromBeginning);
s.Read(buf,1);
aa:=IntToHex(buf,2);
s.Read(buf,1);
bb:=IntToHex(buf,2);
cc:=aa+bb;
label1.Caption:=inttostr(strtoint('$'+cc));
s.Free ;
end;

没有人可以帮我一下吗，很急呀

那个好心人能够出手帮个忙，分不够可以在加