procedure TActiveFormX.PaintEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnPaint;
end;

여기에 한 번 코딩해보시지요..
이벤트 핸들러 생성하시지 마시곰..
해보진 않았습니다..

블루 님이 쓰신 글 :
: ActiveFormPaint가 왜 한번도 호출이 안되져??
: 디버깅으로 잡아봐두..되지를 않고...
: 여기에서 코딩해줘야할것이 있어서요..
: 답변좀 부탁드립니다.
: delphi5.0입니다.