Try this:
uses .., idException;
try
try
If IdPop.Connected then
IdPop.Disconnect;
IdPop.Connect;
// lots of processing
except
on EIdSocketError do
;
end;
finally
timer1.Enabled := true; // this is where i then rstart the process
StaticText3.Caption := 'Good Emails -> '+ inttostr(goodemails);
StaticText4.Caption := 'Total Emails -> '+ inttostr(totalemails);
Screen.Cursor := CRDefault;
end;
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
