[PhoeniX]

Неужели действительно "ничего не нашёл"?

Код:

var
  ip: string;
  octetIP1, octetIP2, octetIP3, octetIP4, Port: Integer;
begin
  ip := '192.168.1.101:27015';
  octetIP1 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  octetIP2 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  octetIP3 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  octetIP4 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  Port := StrToInt(ip);
end;