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

解決

PMAN  2009-09-01 15:08:46  No: 35561  IP: 192.*.*.*

フォーム上にパネルをおいて、その上にペイントボックスを置き、線分を描きたいのですが、一瞬現れてすぐ消えてしまいます。(線を描いた後、パネルが上書きされているような感じです)
作画はフォームの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-01 15:36:06  No: 35562  IP: 192.*.*.*

PaintBox1 の OnPaint イベントでは！？

編集 削除
PMAN  2009-09-01 21:18:16  No: 35563  IP: 192.*.*.*

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

編集 削除