[icWasya]

>...у TWinControl даже канвы нет
попробуй так

Код:

  private
    FCanvas : TControlCanvas;


...

constructor TSizeGrip.Create(AOwner:TComponent);
  ...
  FCanvas := TControlCanvas.Create;
  FCanvas.Control := Self;