Canvas zeichnet nicht :(

[simonko]

Delphi-Quellcode:

TRechteck = class(TgraphicControl)
    procedure paint; override;
  end;

procedure TRechteck.paint;
begin
  canvas.Rectangle(100,100,200,300);
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  rechteck:=TRechteck.Create(self);
  rechteck.Parent:=panel1;
  rechteck.paint;
end;

weiss jemand warum dieser code kein rechteck zeichnet?