unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PaxCompiler, StdCtrls, PaxProgram;

type
  TForm1= class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    PaxCompiler1: TPaxCompiler;
    PaxPascalLanguage1: TPaxPascalLanguage;
    PaxProgram1: TPaxProgram;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='Say '; // переменная для примера

  paxCompiler1.Reset;  // Готовим PaxCompiler
  paxCompiler1.RegisterLanguage(PaxPascalLanguage1); // Скрипт будет на Паскале

  // Теперь нужно зарегистрировать все процедуры, переменные, функции и т.д. (точнее указатели на них)
  // которые мы будем ипользовать в скрипте
  paxCompiler1.RegisterHeader(0, 'procedure ShowMessage(const Msg: string);',@ShowMessage);
  // Если процедура или функция, то RegisterHeader

  paxCompiler1.RegisterVariable(0,'str:string;',@str);
  // Если переменная, константа то RegisterVariable

  paxCompiler1.AddModule('main',PaxPascalLanguage1.LanguageName);
  // Добовляем новый модуль (название произвольное)

  // и собственно сам код - строка за строкой...
  paxCompiler1.AddCode('main','begin');
  paxCompiler1.AddCode('main',Edit1.Text);
  paxCompiler1.AddCode('main','end.');

  if  paxCompiler1.Compile(paxprogram1) then // компилируем
  begin                    // запускаем!
    PaxProgram1.Run;
  end
  else
    ShowMessage('Error compile');
end;

end.

IfEx "[#34] найти символ [#34] или другой символ [#34] = [#34] найти символ [#34] или другой символ [#34]"

Else

EndIf