这段代码什么意思阿,求解

Question

type
   TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;
private
   FOnClientDisconnect: TSocketNotifyEvent;procedure TServerWinSocket.ClientDisconnect(Socket: TCustomWinSocket);
begin
  if Assigned(FOnClientDisconnect) then FOnClientDisconnect(Self, Socket);//这句话执行了什么命令?
  if ServerType = stNonBlocking then Socket.DeferFree;
end;

Answer 1

if Assigned(FOnClientDisconnect) then FOnClientDisconnect(Self, Socket);
如果此事件的响应函数已经被设置，则先执行它