anchor.diff:  {----------------PrintBitmap}
   
   type
  -  AllocRec = class(TObject)
  +  ThtAllocRec = class(TObject)
  +  public
       Ptr: Pointer;
       ASize: Integer;
       AHandle: THandle;
  
positive.code:     end;
    end;
  
    procedure DeAllocate(AR: AllocRec);
    begin
      with AR do
        if ASize < $FF00 then
  
negative.code:   OldPal: HPalette;
    DC: HDC;
    Info: PBitmapInfo;
    Image: ThtAllocRec;
    ImageSize: DWord;
    InfoSize: DWord;
  {$endif}
  