Source/fs_iinterpreter.pas | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/Source/fs_iinterpreter.pas b/Source/fs_iinterpreter.pas
index 23e2785..abef546 100644
--- a/Source/fs_iinterpreter.pas
+++ b/Source/fs_iinterpreter.pas
@@ -175,6 +175,7 @@ type
     FIncludePath: TStrings;
     FUseClassLateBinding: Boolean;
     FEvaluteRiseError: Boolean;
+    FLastSourcePos : String;
     function GetItem(Index: Integer): TfsCustomVariable;
     procedure RunLine(const UnitName, Index: String);
     function GetVariables(Index: String): Variant;
@@ -3004,10 +3005,21 @@ procedure TfsStatement.Execute;
 var
   i: Integer;
 begin
+  FProgram.ErrorPos := '';
   for i := 0 to Count - 1 do
   begin
     if FProgram.FTerminated then break;
-    Items[i].Execute;
+    try
+      FProgram.FLastSourcePos := Items[i].FSourcePos;
+      Items[i].Execute;
+    except
+      on E: Exception do
+       begin
+         if FProgram.ErrorPos = '' then
+           FProgram.ErrorPos := FProgram.FLastSourcePos;
+         raise;
+       end;
+    end;
     if FProgram.FBreakCalled or FProgram.FContinueCalled or
       FProgram.FExitCalled then break;
   end;
@@ -3383,6 +3395,7 @@ begin
       begin
         FProgram.SetVariables('ExceptionClassName', E.ClassName);
         FProgram.SetVariables('ExceptionMessage', E.Message);
+        FProgram.ErrorPos := FProgram.FLastSourcePos;
         ExceptStmt.Execute;
       end;
     end;
@@ -3400,7 +3413,6 @@ begin
   end;
 end;