Выполнение строки как кода в Delphi

[s1d0r]

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    Button2: TButton;
    PaxCompiler1: TPaxCompiler;
    PaxPascalLanguage1: TPaxPascalLanguage;
    PaxProgram1: TPaxProgram;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  y,z:string;
  f:textfile;
  i:integer;
  x:real;
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);
 
  paxCompiler1.RegisterVariable(0,'str:string;',@str);
  paxCompiler1.AddModule('main',PaxPascalLanguage1.LanguageName);
  paxCompiler1.AddCode('main','begin');
  paxCompiler1.AddCode('main',LabeledEdit1.Text);
  paxCompiler1.AddCode('main','end.');

  if  paxCompiler1.Compile(paxprogram1) then // êîìïèëèðóåì
  begin                                      // çàïóñêàåì!
    PaxProgram1.Run;
  end
  else
    ShowMessage('Error compile');

    x:=1;

end;

Пишет Error Compile...
Меня тоже интересует вопрос о том как вставить формулу с Edit. Да и еще, даже есле таким способом как-то можно вставить то какого типа будет переменная str и как потом написать что бы вывело результат допустим при Edit1.Text:=cos(x)-1 при том что x:=StrToFloat(Edit2.text) ?

[Вадим Буренков]

А я вот такую штуку пишу в DLL . Делаю правда для игры, но подойдет для любого использования. Вот например такой код в .txt файле моя система распознает.

/comment\ 
Beep()
ShowMeSsage(@Надпись передается через параметр опкода)
End()