Hi,
nicht sehr elegant, liefert aber die gewünschte Info:
Delphi-Quellcode:
var lStep:Integer;
begin
try
lStep := 1;
...
lStep := 2;
...
lStep := 3;
...
except
on e:
exception do log('
Fehler bei Schritt #'+inttostr(lStep)'
:'+E.
Message);
end;
end;