Exception bei exception abfangen

[Smokey]

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.