anchor.diff:      fHandle: GpImage;
       fWidth, fHeight: Cardinal;
       fFilename: string;
  +    fBitmap: TBitmap;
       function GetHeight: Cardinal;
       function GetWidth: Cardinal;
     public
  
positive.code: 
  destructor ThtGpImage.Destroy;
  begin
    GDICheck('ThtGpImage.Destroy', GdipDisposeImage(fHandle));
    if Length(fFilename) > 0 then
      try
  
negative.code: var
    g: ThtGpGraphics;
  begin
    if fBitmap = nil then
      fBitmap := TBitmap.Create;
    Result := fBitmap;
    Result.Width := GetWidth;
    Result.Height := GetHeight;
    PatBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Whiteness);
  