Ereignise abfangen

[mimi]

es geht leider doch nicht der grund es liegt an application.onmessage da wird das lezte erstelte objekt zugeiwesen.. ich bräuchte was allgmeines.. warum funktioniert das hier eigentlich nicht:

Delphi-Quellcode:

  private
    fPaint:TPaint;
    mx,my:Integer;
//    fMouseMove:TMouseMoveEvent;
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOVE;

.....

procedure TMycaption.WndProc(var msg: TMessage);
begin
  
  ShowMEssage('O');
  //case msg.Msg of
//    MY_MESSAGE: Showmessage(PChar(msg.LParam));
//  end;
end;

procedure TMycaption.WMMouseMove(var Message: TWMMouseMove);
begin
  ShowMEssage('O');
end;

tmycaption hat im moment nur TObject als vorfahren