Hm nunja ich bin mir nicht sicher, ob es geht, nach dem "on DeineException do begin-end" noch code auszuführen.
Zumindest habe ich sowas noch nie gesehen.
Da du aber die 2 zeilen code auf jedenfall auszuführen scheinst (sowohl bei keinem Fehler als auch bei Fehler)
würde ich das mit finally machen. also:
Delphi-Quellcode:
try
try
password := pwtotest;
connect(connection_timeout);
if connected = true then begin
with form1 do begin
ShowMessage(password+' was right!');
end;
end;
except
on EIdReadTimeout do begin
inc(timeouts);
end;
end;
finally
interlockedexchangeadd(@form1.donegauge.progress,1);
interlockedexchangeadd(tickcount,1);
end;
aber ka obs daran liegt.