Не строится график

[alexchromets]

Не строится график по заданной функции(она есть на скриншоте).
Пробовал подставить простые функции типа "(X^2-x^3)*2" - работает.
Что делать?
Вот кусок кода, где должна быть ошибка. Не имею понятия, как её исправить.

PHP код:

procedure TForm1.StartBtnClick(Sender: TObject);
var
  n: cardinal;
  m: word;
  str: string;
label a;
begin
  Form1.caption := 'Graphics - Расчет точек';
  graph := true;
  ram := true;
  xe := strtofloat(XEnd.text);
  xs := strtofloat(XStart.text);
  if xe < xs then
  begin
    str := XEnd.text;
    XEnd.text := XStart.text;
    XStart.text := str;
    xe := xe + xs;
    xs := xe - xs;
    xe := xe - xs;
  end;
  step := strtofloat(StepEd.text);
  if (step > abs(xe - xs)) or (step < 0) then
  begin
    showmessage('Неверный шаг');
    exit;
  end;
  setlength(X, trunc(abs(xe - xs) / step) + 1);
  setlength(Y, trunc(abs(xe - xs) / step) + 1);
  Gauge1.maxvalue := high(Y);
  for n := 0 to high(X) do
  begin
    X[n] := xs + n * step;
    str := FormEd.text;
    str := erranalise(str);
  a :; // метка для обновления длинны str в цикле
    for m := 1 to length(str) do
    begin
      // подстановка числа вместо x
      if ((str[m] = 'x') or (str[m] = 'X')) { and(x[n]>=0) } then
      begin
        delete(str, m, 1);
        insert(floattostr(X[n]), str, m);
        goto a;
      end;
      { if ((str[m]='x')or(str[m]='X'))and(x[n]<0) then
        begin
        delete(str,m,1);
        insert(floattostr(x[n]),str,m);
        str[m]:='~';
        goto a;
        end; }
    end;
    // решение функции в точке x
    Y[n] := strtofloat(analise(str));
    Gauge1.progress := n;
  end;
  XYMinMax;
  ris;
end; 


На всякий пожарный прикрепил исходник.
___________________________________ __________
Также хотел спросить по поводу вставки диаграммы в MSWord. В excel ставится без проблем(спасибо пользователю под ником BDA), а в MSWord не хочет. Если кто знает, в чем дело, подскажите пожалуйста.

[s-andriano]

Вы сами посчитайте, сколько будет (1 - (-2)^4) или (1 - 4.5^4).

[alexchromets]

Я сразу не заметил, что там отрицательный корень получается...

[phomm]

При чём тут вообще отриц. корень?
я сразу заподозрил при приведённому куску кода, что проблема в Analise
поглядев исходник - понял, что оно вряд ли Ваше, Вы где-то накопали и пытаетесь подогнать под своё задание в универе.
проблема в том, что Вы даже не знаете как пользоваться модулем мат. анализа MyMath, ведь там даже нет упоминания об анализе слова sqrt
Потрудитесь сперва изучить готовый инструмент. Плюс вот Вам наводка - обратная польская запись - для разбора выражений, либо ищите дргугой модуль анализа, который выполняет нужные Вам функции