delphi 取Bmp图片宽高
Var   
      Bmp:TBitMap;   
      Stream:TMemoryStream;   
  begin   
      Bmp   :=TBitMap.Create;   
      Bmp.LoadFromFile('XX.BMP');   
  //尺寸   
      PX   :=Bmp.Width   ;   
      PY   :=Bmp.Height;   
      Stream:=TMemoryStream.Create;   
      Bmp.SaveToStream(Stream);   
  //大小   
      Size   :=Stream.Size;   
      Stream.Free;   
      Bmp.Free;   
  end;