Добавление константы в скрипт

Для добавления в скрипт константы вызовите метод TfsScript.AddConst. Первый параметр - это наименование константы, второй - тип (должен быть одним из стандартных типов), третий - значение.

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  { добавление в скрипт константы } 
  fsScript1.AddConst('pi', 'Extended', 3.14159); 

  { компилируем скрипт с использованием языка PascalScript } 
  fsScript1.Lines := Memo1.Lines;
  fsScript1.SyntaxType := 'PascalScript';
  fsScript1.Parent := fsGlobalUnit;
  if fsScript1.Compile then 
    fsScript1.Execute else   { выполнить, если компиляция прошла успешно } 
    ShowMessage(fsScript1.ErrorMsg); { вывести сообщение об ошибке } 
end;