Methode wird vom Automatisierungsobjekt nicht unterstützt

[TKC]

hi, versuchs mal so ...

Delphi-Quellcode:

procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
  ShowMessage(TDWJabberMsg(Msg).FromJID);
  if Assigned(OnDWMessage) then
  begin
    FOnMessage(self, Msg, Tag);
  end;
end;