TGraphicControlHelper = class helper for TGraphicControl
    procedure PaintTo(Canvas: TCanvas; X, Y: Integer);
  end;

{ TGraphicControlHelper }

procedure TGraphicControlHelper.PaintTo(Canvas: TCanvas; X, Y: Integer);
var
  bmp: TBitmap;
  sr: TRect;
begin
  if Self.Parent = nil then Exit;

  bmp := TBitmap.Create;
  try
    bmp.SetSize(Parent.Width, Parent.Height);
    Self.Parent.PaintTo(bmp.Canvas.Handle, X, Y);
    sr := Self.BoundsRect;
    Windows.OffsetRect(sr, 1, 1);
    Canvas.CopyRect(Self.ClientRect, bmp.Canvas, sr);
  finally
    bmp.Free;
  end;
end;