Присвоение значений в ComboBox

[maxi_mum]

Привет всем. Пишу прогу для проверки почты с NMPOP31, из ComboBox выбирается pop3 сервер. Как сделать чтобы например вместо pop.mail.ru
в comboboxe можно было выбрать @mail.ru. Заранее спасибо!

[IT-man]

combobox.items.add('@mail.ru');

[maxi_mum]

Сообщение от IT-man

combobox.items.add('@mail.ru');

Не совсем то. Возле комбобокса есть кнопка для сохранения списка серверов в текстовый файл. NMPOP31 из combobox читает сервер (pop.mail.ru). Нужно чтобы в комбококсе можно было выбрать @mail.ru, а NMPOP31 воспринимал как pop.mail.ru .

[IT-man]

var l:integer;
      s:string;
begin
l:=length(cbb.text);
s:=copy(cbb.text,2,l-1);
s:='pop.'+s;//так устроит?
end;

[maxi_mum]

Сообщение от IT-man

var l:integer;
      s:string;
begin
l:=length(cbb.text);
s:=copy(cbb.text,2,l-1);
s:='pop.'+s;//так устроит?
end;

Может вопрос глупый, но куда это вствить?

[Stilet]

Ну например там где ты отправляешь письмо.

[maxi_mum]

Stilet, ну так я не отправляю, а получаю письма. В Combobox вписывается pop3 сервер. Нужно значению pop.mail.ru присвоить @mail.ru или просто mail.ru .

Все, проблема решена! Вот как сделал:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='pop.';
label5.Caption:='Соединение...';
if NMPOP31.Connected then
 NMPOP31.Disconnect
else
begin
 NMPOP31.Host :=(s+combobox2.Text);
 NMPOP31.UseriD :=combobox1.Text;
 NMPOP31.Password := Edit3.Text;
 NMPOP31.Connect;
end;
end;