怎样在INPUTBOX里检测，所输入的IP地址是否正确(0分)

怎样在INPUTBOX里检测，所输入的IP地址是否正确，如果不是，就提示，我的代码如下，
请教如何修改。
procedure TForm1.N2Click(Sender: TObject);
begin
try
if clientsocket1.Active then
clientsocket1.Active :=false;
if inputquery('请输入计算机地址','address name:',server) then
if length(server)>0 then
with clientsocket1 do
begin
host:=server;
active:=true;
n2.Checked :=false;
end;
except
beep;
showmessage('连接类型出错，或地址不正确');

end;
end;

private static boolean validIPString(String sIPValue)
{
if( !checkString(sIPValue) )
{
return false;
}

int iSecCount =0;
boolean bFlag = true;
StringTokenizer st = new StringTokenizer(sIPValue,".");
while(st.hasMoreTokens())
{
iSecCount++;
String sAnIPString = st.nextToken();
int iIp = strToInt(sAnIPString,-1);
if( (iIp < 0 ) || ( iIp > 255 ) )
{
bFlag = false;
break;
}
}
if( bFlag &amp;&amp; (iSecCount == 4) )
{
return true;
}
else
{
return false;
}
}

java的，参考一下吧

对不起啊，我看不明白JAVA啊，有没有其它的例子啊，谢谢

uses WinSock;
function inet_addr(cp: PChar): u_long;

API有提供IP地址的转换，不妨瞧瞧^_^

烦请各位可以比个完整的代码我吗，API函数具体实现我不清楚，请指教，