Exception bei exception abfangen

[Meflin]

hier mal der nicht funzende code:

Delphi-Quellcode:

try
  password := pwtotest;
  connect(connection_timeout);
  if connected = true then begin
    with form1 do begin
      ShowMessage(password+' was right!');
    end;
  end;
  interlockedexchangeadd(@form1.donegauge.progress,1);
  interlockedexchangeadd(tickcount,1);
except
  on EIdReadTimeout do begin
    inc(timeouts);
  end;
  interlockedexchangeadd(@form1.donegauge.progress,1);
  interlockedexchangeadd(tickcount,1);
end;