ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TMainForm.FormCreate(Sender: TObject);
begin
SetLength(check,1);
end;

procedure TMainForm.ThreadBarChange(Sender: TObject);
begin
SetLength(check,ThreadBar.Position);
end;

procedure checkmail.Execute;
var
dest1,dest2,dest3, serv : string;
i : integer;
begin
for i:=0 to MainForm.AllEmailMemo.Lines.Count-1 do
Divide(MainForm.AllEmailMemo.Lines[i],Dest1,Dest2, Dest3);
serv:='pop.'+copy(dest3,pos('@',dest3)+1,10000);
MainForm.IdPOP31.Host:=serv;
MainForm.IdPOP31.Port:=110;
MainForm.IdPOP31.Username:=dest1;
MainForm.IdPOP31.Password:=dest2;
try
MainForm.IdPOP31.Connect;
MainForm.ValidMemo.Lines.Add(dest3+':'+dest2);
MainForm.LogMemo.Lines.Add(dest3+':'+dest2 + ' [успешно]');
except
MainForm.InvalidEmailMemo.Lines.Add(dest3+':'+dest 2);
MainForm.LogMemo.Lines.Add(dest3+':'+dest2 + ' [неуспешно]');
end;
MainForm.IdPOP31.Disconnect;
MainForm.ProgressBar1.Position:=MainForm.ProgressB ar1.Position+1;
inc(i);
end;

там через хттп. мне же поп3 надо.

Цитата:
там через хттп. мне же поп3 надо.

там приведен пример многопоточности, писать код за тебя никто не будет

ТС, _http://forum.vingrad.ru/forum/topic-60076.html и вот попроще - _http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370