Setilcode - ошибка

VoLT

Данный код выдаёт ошибку - Invalid file format, в чём загвоздка?

var
  ScriptStream: TMemoryStream;
begin
  fsScript1.Clear;
  fsScript1.AddRTTI;
  fsScript1.Lines.Text := 'begin ShowMessage(''Hello!'') end.';
  fsScript1.SyntaxType := 'PascalScript';
  ScriptStream := TMemoryStream.Create;
  fsScript1.GetILCode(ScriptStream);
  fsScript1.SetILCode(ScriptStream);
  fsScript1.Execute;
  ScriptStream.Free;

VoLT

Решил проблему

procedure TForm1.Button1Click(Sender: TObject);
var
  ScriptStream: TStream;
begin
  fsScript1.Clear;
  fsScript1.AddRTTI;
  fsScript1.Lines.Text := 'begin ShowMessage(''Hello!'') end.';
  fsScript1.SyntaxType := 'PascalScript';
  ScriptStream := TMemoryStream.Create;
  fsScript1.GetILCode(ScriptStream);
  ScriptStream.Position := 0;
  fsScript1.SetILCode(ScriptStream);
  fsScript1.Execute;
  ScriptStream.Free;
end;