Тот_Самый (мой вариант)

Function f(a,q,c,x,xp:real):real;
begin
  a:=strtofloat(form1.Edit1.Text);
  q:=strtofloat(form1.Edit2.Text);
  c:=strtofloat(form1.Edit3.Text);
  xp:=strtofloat(form1.Edit4.Text);

  x:=a*exp(q*xp+c);
  f:=x;
end;