anchor.diff:  procedure PrintBitmap(Canvas: TCanvas; X, Y, W, H: Integer; Bitmap: TBitmap);
   {Y relative to top of display here}
   
  -  function Allocate(Size: Integer): AllocRec;
  -  begin
  -    Result := AllocRec.Create;
  +  function Allocate(Size: Integer): ThtAllocRec;
  +  begin
  +    Result := ThtAllocRec.Create;
       with Result do
       begin
         ASize := Size;
  
positive.code: {----------------PrintBitmap}
  
  type
    AllocRec = class(TObject)
      Ptr: Pointer;
      ASize: Integer;
      AHandle: THandle;
  
negative.code:   OldPal: HPalette;
    DC: HDC;
    Info: PBitmapInfo;
    Image: ThtAllocRec;
    ImageSize: DWord;
    InfoSize: DWord;
  {$endif}
  