Rysowanie na komponencie Shape1

Mam następujący problem chciałbym rysowć prote linie na komponencie shape. Jak to zrobić?

var
  h : hwnd;
  c : TCanvas;
begin
  c := tcanvas.Create;
  h := TWinControl(Shape1).Handle;
  c.Handle := GetDeviceContext(h);

  c.Pen.Color := $0;
  c.Brush.Color := $0;
  C.Rectangle(shape1.Left, shape1.Top, shape1.Left+40, shape1.top+30);

  c.Pen.Color := $FFFF00;
  c.MoveTo(shape1.Left, shape1.Top);
  c.LineTo(shape1.Left+60, shape1.top+60);

  c.Free;
end;

przy czym tak naprawdę rysujesz nie po tshape, a po jego parencie, więc wszystko musi być przesunięte o shape.Left, shape.Top.

a nie możesz po image'u albo paintbox'ie??