diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index 93132f631e..36a9ed98d0 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -3897,7 +3897,6 @@ implementation
         converted_result_data : ttempcreatenode;
         calltype: tdispcalltype;
         invokesym : tsym;
-        myparasym: tparavarsym;
       begin
          result:=nil;
          candidates:=nil;
@@ -4187,7 +4186,6 @@ implementation
                 end;
                while (paraidx<procdefinition.paras.count) and (vo_is_hidden_para in tparavarsym(procdefinition.paras[paraidx]).varoptions) do
                  inc(paraidx);
-               myparasym:=tparavarsym(procdefinition.paras[paraidx]);
                while (paraidx<procdefinition.paras.count) do
                 begin
                   if not assigned(tparavarsym(procdefinition.paras[paraidx]).defaultconstsym) then