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

怎样在INPUTBOX里检测，所输入的IP地址是否正确，如果不是，就提示，我的代码如下，
我的功能是要判断，输入的是不是IP地址格式，还是输入的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;