检查输入的IP地址串是否合法
uses WinSock;

function IsLegalIP(IP: String): Boolean;
begin
if(Longword(inet_addr(pchar(IP)))=INADDR_NONE) then Result := false
else Result := true;
end;