Загрузка настроек

[Volkogriz]

Доброе время суток!
Проблема такая:

PHP код:

unit Unit1;
interface
uses

type
  TForm1 = class(TForm)
..................................
..................................
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NameProcedure: string;

  implementation

{$R *.dfm}

procedure Name1;
begin
Bla.........
Bla.........
Bla.........
end;


procedure Name2;
begin
Bla.........
Bla.........
Bla.........
end;

procedure Name3;
begin
Bla.........
Bla.........
Bla.........
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Name1;
NameProcedure:= 'Name1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Name2;
NameProcedure:= 'Name2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Name3;
NameProcedure:= 'Name3';
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
ff:textfile;
begin
assignfile(ff,extractfilepath(Application.ExeName)+'Program.save');
{$I-}
rewrite(ff);
{$I+}
if ioresult<>0 then
begin
                    exit;
                    end;
begin
writeln(ff,'Save="'+ NameProcedure +'"');
closefile(ff);
end;
end;

function get_param(bg,ed:string;rep:string):string;//получение параметров
var i:integer;
begin
i:=pos(bg,rep);
if i<>0 then begin
             i:=i+length(bg)-1;
             delete(rep,1,i);
             get_param:=copy(rep,1,pos(ed,rep)-1);
             end
        else get_param:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
var ff:textfile; s1,s2:string;
begin
assignfile(ff,extractfilepath(Application.ExeName)+'Program.save');
{$I-}
reset(ff);
{$I+}
if ioresult<>0 then begin
                    exit;
                    end;
repeat
readln(ff,s1);
s2:=copy(s1,1,pos('=',s1)-1);
if s2='Save'+IntToStr(AmountStartProgammy) then
Как выполнить процедуру? :=get_param('"','"',s1);
until eof(ff);
closefile(ff);
end; 


В общем попытался объяснить
Подскажите как всё таки выполнить процедуру, может есть другой способ сохранить и при загрузке выполнить это действие.
За ранее благодарен!
С уважением,
Volkogriz

[Slym]

Никак...
человек хочет динамически подгружаемый код...
человек может использовать DLL они для этого и созданы, или bpl - dll с дельфевыми наваротами

есть путь сложнее: интерпритатор, коих для дельфи кучка, начиная от MSScriptControl до всяких PascalScript