WindowProc, WMPaint ist das doppelt gemoppelt?

[jbg]

"Deine WindowProc" = MyWndProc

Delphi-Quellcode:

procedure TAngehangeneKomponente.MyWndProc(Var Message : TMessage); 
begin 
  Dispatch(Message);
end;

Mehr ist nicht notwendig. Dispatch verteilt die Message.Msg schon für dich.