Incompatible types: method pointer and regular procedure

[invocker]

السلام عليكم

اردت تجربة استخدام idtcpclient   على تطبيق الكونسول

واجهتني المشكلة الاولى  في هذه الرسالة

كود :

Incompatible types: method pointer and regular procedure الكود procedure IdTCPClientConnected(); BEGIN   IdTCPClient.IOHandler.WriteLn('OK'); END; IdTCPClient := TIdTCPClient.Create();   IdTCPClient.Host := 'localhost';   IdTCPClient.Port := 6000;   IdTCPClient.OnConnected := IdTCPClientConnected;