Update Fasm Implementation

Tests/Unit1.pas

@@ -36,15 +36,11 @@ Module:=Src.Compilate;
 Func1:=Module.Funtion['main'];
 Func2:=Module.Funtion['varmain'];
 if 454<>Func1.Call(TypeInfo(integer),[454],CRTBCallTypeStdCall).AsInteger then
-begin
   raise Exception.Create('Error in test1');
-end;
 Var1:=Module.&Var['Pmain'];
 Var1.Val:=424;
 if Var1.Val.AsInteger<>Func2.Call(TypeInfo(integer),[],CRTBCallTypeStdCall).AsInteger then
-begin
   raise Exception.Create('Error in test1');
-end;
 FreeAndNil(Func1);
 FreeAndNil(Src);
 FreeAndNil(Fasm);