如何处理套接字错误＃10061连接在datasnap中关闭服务器时被拒绝

Question

您好我创建了一个datasnap项目，我想当服务器关闭时我没有中断异常并显示消息并告诉服务器无法启动

请帮帮我

IdHTTP := TIdHTTP.Create(nil);
  try
    try
       Result:= IdHTTP.Get(strServerUrl + strMethodUrl + Number+'/'+User);
    except
      on E: Exception do
      begin
        ShowMessage('The server Is not Start');
        Result:='';
      end;

    end;
  finally
    IdHTTP.Free;
  end;