[lmikle]

как-то так:

Код:

1 2 3 4 5

if checkbox1.Checked  then    begin       http.ProxyParams.ProxyServer:=Copy(Edit2.Text,1,Pos(':',Edit2.Text)-1);       http.ProxyParams.ProxyPort:=StrToInt(Copy(Edit2.Text,Pos(':',Edit2.Text)+1,Length(Edit2.Text)));    end;