включен ли порт локально udp

function PortAvailable:boolean;
var
  Socket: TUDPBlockSocket;
begin

 Socket := TUDPBlockSocket.Create;
  try
    Socket.Bind('83.222.77.112', '27010');  // ваш ип
    try
       if Pos(Socket.LastErrorDesc, 'Address already in use') = 1 Then
       print('ms rabotaet', 222,222,0)
       else
       print('ms ne rabotaet', 222,222,0);
      finally
      Socket.CloseSocket;
    end;
   finally
     Socket.Free;
  end;
  end;