[roamer]

Сообщение от boxep

А метод Paint это как, сделать?

--- Извините. Я ввел Вас в заблуждение.
Метод Paint надо перекрывать, если создается наследник от компонента.
А если используется данный компонент на форме, то надо использовать обработчик OnPaint.
Есть пример в Help`е :

Код:

  with PaintBox1.Canvas do
   begin
    Canvas.Pen.Color := clWhite;
    Canvas.Polyline([Point(40, 10), Point(20, 60), Point(70, 30),
    Point(10, 30), Point(60, 60), Point(40, 10)]);
  end;