Bei try..except Zeilenr. der fehlerhaften Zeile ausgeben?

[himitsu]

hier ohne sich verscheiben/zählen zu können ... jedenfalls nich bei der Programmierung, da dort nur Copy&Paste.

Delphi-Quellcode:

LastPos := 0; 
Try 
  Befehl1; 
  Inc(LastPos); 
  Befehl2; 
  Inc(LastPos); 
  Befehl3; 
  ... 

Except 
  Fehler bei Befehl (LastPos)
End;