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: procedure PrintBitmap(Canvas: TCanvas; X, Y, W, H: Integer; Bitmap: TBitmap);
  {Y relative to top of display here}
  
    function Allocate(Size: Integer): ThtAllocRec;
    begin
      Result := ThtAllocRec.Create;
      with Result do
      begin
        ASize := Size;
  