استفسآر عن الحدث OnConnect في IdTCPServer ؟

[AL-MOB4RM3G]

السلام عليكم ورحمة الله

اخوآني الكرآم

كنت اتآبع درس اليوم من كتآب ماسترينج دلفي ويتحدث فيه عن اخآدم و العميل,, اي سيرفر و كليانت,,

ووصل لحد انه بدئ يستخدم الآمر Connect ,, الكود التآلي,,

procedure TFormServer.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
lbLog.Items.Add ('Connected from: ' +
AThread.Connection.Socket.Binding.PeerIP);
end;

لآحظوا AThread: TIdPeerThread ولكن عندي في نفس الحدث يظهر

(AContext: TIdContext);

وكذلك هو الحآل مع بآقي الأحدآث,,

ما الخلل بارك الله لكم ؟