не мог бы ты помочь написать код полностью? просто я не особо силен в этом...
Код:
procedure TForm1.ActivateClick(Sender: TObject);
var
NumOfMsgs, mailcicl:Integer;
find:boolean;
link:string;
begin
IdPOP31.Username:=login+'@rambler.ru';
IdPOP31.Password:=pass;
IdPOP31.Host:='pop.rambler.ru';
IdPOP31.Port:=110;
вот код. как правильно вставить то что ты написал? сколько не пробывал разные ошибки...(((