Aclaración con el PaintBox1

[esquerda21]

Hola ante todo.
Mi problem es el siguiente:

var
Form1: TForm1;
p: tPaintBox;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
p:= tPaintBox.Create(self);
p.parent:= form1;
p.Width:= 300;
p.Height:= 300;
p.visible:= true;
p.Canvas.LineTo(300,300);
end;

La linea hecha con el canvas no se ve. Porque si haciendo esto con un TImage funciona bien y con el Paintbox no?
Decirme que me falsa para que muestre la linea''.
Gracias de antemano.