Delphi-Quellcode:
uses Winsock;
procedure TForm1.Button1Click(Sender: TObject);
begin
if inet_addr(PChar(edit1.Text))=INAddr_None
then
raise Exception.CreateFMT('
%s ist keine gültige IP-Adresse',[edit1.text]);
end;
Edit:
"255.255.255.255" müsste man bei dieser Version noch extra überprüfen.
Beachte das auch "4" oder "4.6" eine gültige Adresse ist.