anchor.diff:    Image: AllocRec;
     ImageSize: DWord;
     InfoSize: DWord;
  -{$endif}
  -begin
  -{$ifdef LCL}
  -  Canvas.StretchDraw(Rect(X, Y, W, H), Bitmap);
  -{$else}
  +begin
     if (Bitmap = nil) or (Bitmap.Handle = 0) then
       Exit;
     DC := Canvas.Handle;
  
positive.code: 
  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;
  
negative.code:     AR.Free;
    end;
  
  var
    OldPal: HPalette;
    DC: HDC;
  