Na dann einen Breakpoint auf die 1. Anweisung in procedure TForm1.Button1Click() setzen, Programm starten und den Button drücken.
Dann mit F8 im Einzelschritt weiter, bis die
Exception kommt.
Du kannst auch einen 2. Breakpoint in die Mitte der Procedure setzen und das Programm mit F9 weiterrennen lassen.
Mit dieser Methode kannst du den Befehl einkreisen, der die
Exception auslöst.