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;
 ListBox2.Items.Add(Dest1+':'+Dest2+' - Valid')
except
 ListBox2.Items.Add(Dest1+':'+Dest2+' - Invalid') ;
end;
 IdPop31.Disconnect;
end;
ss.Free;