Делегирование Опции

[F0b0s]

у компонента PaintBox хочу процедуру вызываваемую по событию OnPaint заменить на свою процедуру описанную в собственном классе.
как это сделать?

[volvo]

А попробуй вот это:

Procedure TForm1.myPaint(Sender: TObject);
begin
  // тут твоя отрисовка
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PaintBox1.OnPaint := Form1.myPaint; // Возможно потребуется @PaintBox1.OnPaint := @Form1.myPaint;
end;

Это тебе подойдет? Или обязательно извратиться с делегированием?