Получить разницу между указателями.

[Alex Cones]

Чтобы лишний раз не напрягать Лазаря пытаюсь получить bmp.bmBits из HbitMap не вызывая GetObject.

Вот я пытаюсь получить разницу:

Procedure Draw(Source : HBitMap; X,Y : Integer);
  Var
   Bit     : BitMap;
   Loc     : HDC;
   S1, S2 : String;
  Begin
   Loc := CreateCompatibleDC(Warehouse.Buffer.DC);
   SelectObject(Loc, Source);
   GetObject(Source, SizeOf(Bit), @Bit);
   BitBlt(Warehouse.Buffer.DC, X, Y, Bit.bmWidth, Bit.bmHeight, Loc, 0, 0, SRCCOPY);

   Str(Source, S1);
   Str(Integer(Bit.bmBits), S2);

   MessageBox(0, PChar(S1 + ' ' + S2),'Error',MB_OK);
   DeleteDC(Loc);
  End;

Выдает только S1 и 0. Правильно ли это?
___________________________________ _______________________

Procedure FVFL_FillAll(Handle: HBITMAP; Color : Integer); StdCall;
Var
 X, Y: Integer;
 BMP: BITMAP;
 P1, P2: PRGBTriple;
 R,G,B : Byte;
 S1,S2 : String;
Begin
 Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
 P1 := BMP.bmBits;
 R := (Color And $0000FF);
 G := (Color And $00FF00) Shr 8;
 B := (Color And $FF0000) Shr 16;
 If BMP.bmBitsPixel = 24 Then
    Begin
      For Y := 0 To BMP.bmHeight - 1 Do
            Begin
             P2 := P1;
             For X := 0 To BMP.bmWidth - 1 Do
                  Begin
                   P2.rgbtRed   := R;
                   P2.rgbtGreen := G;
                   P2.rgbtBlue  := B;
                   Inc(P2);
                  End;
             Pointer(P1) := Pointer(Integer(P1) + BMP.bmWidthBytes);
            End;
      Str(Handle, S1);
      Str(Integer(BMP.bmBits), S2);
      MessageBox(0, PChar(S1 + ' ' + S2),'Error',MB_OK);
    End
 Else
  MessageBox(0, 'Library error - 0x00', 'Error', MB_OK);
End;

А здесь выдает два разных числа.