Delphi 7 + Skype: how to get text of incoming message?

Question

Skype

Prompt as by means of Skype API from Delphi 7 to receive texts of entering messages???
On the Internet they say that you need to install a component to work with Skype, then connect to Skype, give the application access and catch incoming messages with the Skype1MessageStatus function.
I do everything as it is written, the component is installed, at startup the program connects to Skype, it requires permission, I allow it, but with an incoming message, the call to the Skype1MessageStatus function does not occur at all. At the same time, using the component, I can write messages to my contacts. That is, outgoing ones work, but incoming ones cannot be read.
Therefore, your help is very much needed.

Answer 1

https://support.skype.com/en/faq/FA214/what-is-the...
Here one strange method is described, how you can listen to Skype messages without API: habrahabr.ru/post/235007

Answer 2

Hello.
Faced the same. As you can see from the summary from support.skype.com - this is probably the same case with "API" trimming.
An event occurs for me, but subject to focusing on a chat with the person from whom the message came.
If the focus is on another chat, the event does not occur.
I solved this issue by polling the latest messages in all chats through IChat , IChatMessageCollection; IChatMessage;
If there are new messages in IChatMessageCollection I read IChatMessage.Body.