[lmikle]

как-то так:

Код:

  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;