Проваливается в Execute

Cerber

Добрый день вот такая беда с сабжем:

FMyScript = new TfsScript(NULL);
FMyScript->Clear();
FMyScript->AddRTTI();

FMyScript->SyntaxType = "PascalScript";

FPascalSc = new TfsPascal(NULL);

for (int i = 0; i < 10; i++)
{
FMyScript->AddVariable("Vr" + IntToStr(i+1) ,"boolean",false);
}
FMyScript->AddVariable("GlobalVar1" ,"boolean",false);

FMyScript->Lines->Add("begin");

FMyScript->Lines->Add("GlobalVar1:=Vr1;");
FMyScript->Lines->Add("end.");

FMyScript->Variables[0] = true;

if (FMyScript->Compile() != true)
{
String tempStr = FMyScript->ErrorMsg;
}
FMyScript->Execute();

boolean b = FMyScript->Variables[10];

Проваливается в Execute и усе там и висит.
Что это могет быть?