нет соединения через idPop

[DeDoK]

Вобщем условие такое, есть список email-ов. Надо проверить, работают ли они. пишу такой код:

procedure Divide(Sourse:string;var Dest1,Dest2, Dest3:string);
begin
 Dest1:=Copy(Sourse,1,Pos('@',Sourse)-1);//получаем имя пользователя
 Dest3:=Copy(Sourse,1,Pos(';',Sourse)-1);
 Delete(Sourse,1,Pos(';',Sourse));
 Dest2:=Sourse; // получаем пароль
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
Dest1, Dest2, Dest3, pop : string;
ss : TStringList;
i:integer;
begin
if FileEdit.Text='' then begin
ShowMessage('Не загружен список!!!');
exit;
end else begin
ss:=TStringList.Create;
ss.LoadFromFile(FileEdit.Text);
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
for i:=0 to ss.Count-1 do begin
Divide(ss.Strings[i],Dest1,Dest2, Dest3);
pop:='pop.'+copy(Dest3, pos('@', Dest3)+1,10000);
IdPOP31.Host:=pop;
IdPOP31.Port:=110;
IdPOP31.Username:=Dest1;
IdPOP31.Password:=Dest2;
try
IdPOP31.Connect;
except
end;
if IdPOP31.Connected then
ListBox2.Items.Add(Dest1+':'+Dest2+' - Valid')
else
ListBox2.Items.Add(Dest1+':'+Dest2+' - Invalid') ;
end;
end;
ss.Free;
IdPop31.Disconnect;
end;

Пишет все время что Invalid хотя имя и пароль верные, и pop сервер указан верно. В чем я ошибся?

[Квэнди]

Кто invalid? где пишет ?на какой строчке ? и точный текст ошибки