не работает процедура delete

[gufon]

a1:= strtoint(copy(ip,0,pos('.',ip)-1 ));
delete(ip, 0, pos('.',ip));
a2:= strtoint(copy(ip,0,pos('.',ip)-1 ));
delete(ip, 0, pos('.',ip));
a3:= strtoint(copy(ip,0,pos('.',ip)-1 ));
delete(ip, 0, pos('.',ip));
a4:= strtoint(copy(ip,0,pos('.',ip)-1 ));
delete(ip, 0, pos('.',ip));

пишу так, копирование работает а удаление не изменяет строку

[Человек_Борща]

строка начинается с 1-ого символа.

А вообще что вы хотите делать этим кодом? Получаете IP адрес? a1+a2+a3+a4?

[gufon]

да, я уже догадался, все ок

procedure TForm1.Button2Click(Sender: TObject);
var a1,a2,a3,a4: integer; ip: string;
begin
edit2.Text:= idhttp1.Get('http://napricole.dax.ru/ip.php');
ip:= edit2.text;
a1:= strtoint(copy(ip,1,pos('.',ip)-1 ));
delete(ip, 1, pos('.',ip));
a2:= strtoint(copy(ip,1,pos('.',ip)-1 ));
delete(ip, 1, pos('.',ip));
a3:= strtoint(copy(ip,1,pos('.',ip)-1 ));
delete(ip, 1, pos('.',ip));
a4:= strtoint(ip);
edit2.Text:= inttostr(a1+a2+a3+a4);
end;

конечно этот код можно сделать в цикле но и так нормально))