[Nyctos Kasignete]

Обработчик события OnPaint формы

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  PostMessage(Handle, WM_draw, 0, 0);
end;

P.S. Либо так (раз уж вы взялись за сообщения Windows):

Код:

.....
  private
      procedure mydraw (var mes : TMessage); message WM_draw ;
      procedure WMPAINT(var Msg: TMessage); message WM_PAINT;
      { Private declarations }

........

procedure TForm1.WMPAINT(var Msg: TMessage);
begin
  inherited;
  PostMessage(Handle, WM_draw, 0, 0);
end;