パネル上にペイントボックスを使って線を表示させるには?

解決

PMAN 2009-09-02 00:08:46 No: 35561

フォーム上にパネルをおいて、その上にペイントボックスを置き、線分を描きたいのですが、一瞬現れてすぐ消えてしまいます。(線を描いた後、パネルが上書きされているような感じです)
作画はフォームのOnPaintにて下記のように単純なのですが、どなたかわかる方よろしくお願いします。
ちなみに、パネルは使わず直接フォームに書くと問題なく表示できます。
procedure TForm1.FormPaint(Sender: TObject);
begin
  PaintBox1.Canvas.Pen.Width:=3;
  PaintBox1.Canvas.MoveTo(10,10);
  PaintBox1.Canvas.LineTo(50,10);
end;

TeaTime 2009-09-02 00:36:06 No: 35562

PaintBox1 の OnPaint イベントでは！？

PMAN 2009-09-02 06:18:16 No: 35563

PaintBox1 の OnPaint イベントで解決しました。
TeaTimeさんありがとうございました。