Du solltest eine Klasse erstellen, die das Interface unterstützt.
TJabberPres = class (TInterfacedObject, IJabberPres)
Denn wenn du auf Funktionen eines Interface zugreifen willst kann das nicht gehen, da sie nicht ausgeprägt sind.
Delphi-Quellcode:
function TDWJabberSession.GetStatus(JID: WideString): String;
var
JabberPres: IJabberPres;
begin
JabberPres := TJabberPres.Create;
JabberPres := FJabberSession.GetPres(JID, '', True);
result := JabberPres.Status;
end;
MfG
freak