@Christian Seehase: Ich hatte das "Raise" im Except-Block übersehen
Hatte mich schon gewundert denn
Delphi-Quellcode:
var LCount: Integer;
begin
for LCount := 1 to 10 do
begin
try
strtoint('ab');
except end;
Memo1.Lines.Add(inttostr(LCount));
end;
end;
gibt im Memo 10 Zeilen aus mit den zahlen 1 bis 10