Вопросы по Delphi/Pascal

[Юра]

Здраствуйте. У меня такая проблема. Хочу сделать Чекер мыл через Pop3.Проверяю так:

for l:=0 to StringGrid1.RowCount-1 do
begin
Email1:=Pos('@',StringGrid1.Cells[0,l+1]);
Username:=Copy(StringGrid1.Cells[0,l+1],1,Email1-1);
pop:='pop.'+copy(StringGrid1.Cells[0,l+1],Email1+1,Length(StringGrid1.Cells[0,l+1]));
idpop31.Username:=Username;
idPop31.Password:=StringGrid1.Cells[1,l+1];
idpop31.Host:=pop;
try
IdPOP31.Connect;
except
if  IdPOP31.Connected then
StringGrid1.Cells[2,l+1]:='Валид' else
StringGrid1.Cells[2,l+1]:='Невалид';
IdPOP31.Disconnect;
end;
end;

Проблема в том что оно проверяет где за 12 секунд один пароль .. Как сделать чтобы быстрее проверяло? Прикрутить многопоточность.. или есть еще какие способы? а то ооочень медленно проверяет (

[W!z@rD]

Юра:
1 - попробовать переписать на сокетах
2 - многопоточность (VCL - TThread, Win32API - CreateThread)

[mailbrush]

Скорость интернета какая? Я подозреваю, что слабая, т.к. у меня примерно за секунду чекается. Если уж очень маленький инет - многопоточность не поможет здесь.

[Юра]

теоретически 2 мегабита, но сейчас вот 1,4 мб..МОжет в самом коде проблема?

[mailbrush]

Хм, очень странно.
А ответ от сервера за сколько приходит?

Когда я еще кодил на Инди, тоже делал подобное - в миг заходил на POP3.
Проблема не должна быть в инди, подозреваю, что если перепишешь на сокеты - будет то же.

[Юра]

А как узнать за сколько ответ от сервера приходит?) Я новичок мало что разбираюсь...

[mailbrush]

Встроенная комманда Windows'a - ping.

Пуск -> Выполнить ->

ping pop3.mail.ru

[Юра]

Блин...Окно появляется и сразу пропадает(

[mailbrush]

Три раза идет запрос к серверу, после чего оно закрывается. За сколько ответ приходит?

Плюс еще, возможно, некоторые сервера уже не работают, а твоя программа пытается продолбится к ним на 110 порт.

Вобщем, вариантов много...

[Юра]

Все ок) Вот скрин пинга: