Code:

{©Drkb v.3(2007): www.drkb.ru}

function TestFunc1(d: Double): Integer;

begin

....

end;

function TestFunc2(d: Double): Integer;

begin

....

end;

exports

TestFunc1,

TestFunc2;

procedure TForm1.Button1Click(Sender: TObject);

var

Func: function (d: Double): Integer;

begin

@Func := GetProcAddress(hInstance, PChar(Edit1.Text));

if @Func = nilthen

raise Exception.CreateFmt('Функция с именем "%s" не существует', [Edit1.Text]);

ShowMessage(IntToStr(Func(10.63)));

end;