Построение графика [Delphi]

[StudeHt]

Здравствуйте уважаемые эксперты, вообщем есть небольшая проблема. Есть процедура по нажатию кнопки:

procedure TMainFormOfLab8.ButtonScheduleClick(Sender: TObject);
var Xmin,Xmax,H_tabl,t,X,Y,Z:extended;
begin
  Series1.Clear;
  try
    X:=StrToFloat(EditX.Text);
    Y:=StrToFloat(EditY.Text);
    Z:=StrToFloat(EditZ.Text);
    Xmin:=StrToFloat(EditXmin.Text);
    Xmax:=StrToFloat(EditXmax.Text);
    H_tabl:=StrToFloat(EditStepTabl.Text);
  except
    on EConvertError do
      begin
        ShowMessage('Не все поля заполнены!');
        Exit;
      end;
  end;
  X:=Xmin;
  repeat
    t:=((2*cos(x-pi/6))/(0.5+Power(sin(y),2)))/(1+Power(z,2)/3-((Power(z,2))/5));
    Series1.AddXY(x,Calc(Xmin,Xmax,H_tabl,x,y,z),'',clRed);
    X:=X+H_tabl;
  until (X>Xmax);
end;

Преподаватель сказала, что нужно вынести расчет точек графика в отдельную функцию, но что-то не получается, выскакивает ошибка:[Warning] Unit1.pas(90): Return value of function 'Calc' might be undefined
Вот код:

function Calc(Xmin,Xmax,H_tabl,x,y,z:extended):extended;
begin
  x:=Xmin;
  while x>Xmax do
    begin
      Result:=((2*cos(x-pi/6))/(0.5+Power(sin(y),2)))/(1+Power(z,2)/3-((Power(z,2))/5));
      x:=x+H_tabl;
    end;
end;

И вот так я ее вызываю:

procedure TMainFormOfLab8.ButtonScheduleClick(Sender: TObject);
var Xmin,Xmax,H_tabl,t,X,Y,Z:extended;
begin
  Series1.Clear;
  try
    X:=StrToFloat(EditX.Text);
    Y:=StrToFloat(EditY.Text);
    Z:=StrToFloat(EditZ.Text);
    Xmin:=StrToFloat(EditXmin.Text);
    Xmax:=StrToFloat(EditXmax.Text);
    H_tabl:=StrToFloat(EditStepTabl.Text);
  except
    on EConvertError do
      begin
        ShowMessage('Не все поля заполнены!');
        Exit;
      end;
  end;
  Series1.AddXY(x,Calc(Xmin,Xmax,H_tabl,x,y,z),'',clRed);

end;

Помогите исправить ошибку, заранее огромное спасибо!

[StudeHt]

Неужели никто не подскажет?

[netrino]

Если не ошибаюсь, то ворнинг выскакивает из-за отсутствия инициализации Result, а так как в случае когда изначально x <= Xmax, переменной Result ни разу не будет присвоено какое-либо значение, то она(переменная) может содержать внутри мусор, о чём и предупреждает компилятор. Чтобы не ругалось попробуйте перед While написать Result := 0 или что-то в этом роде

[StudeHt]

Да, warning исчез, но график функции почему-то все равно не строится, в чем может быть ошибка?

[netrino]

Наверное потому что ф-ция Calc считает и возвращает значение только последней точки(у вас ведь цикл), то есть Series1.AddXY вызывается лишь раз

[StudeHt]

Честно говоря, чувствую себя идиотом.. Уже 2 час сижу, и ничего не работает.. Посмотрите если не сложно проект, попытался учесть Ваше последнее замечание, сделав через цикл while, но программа просто стала зависать..

[netrino]

Проверить я не могу, Delphi не использую )
Но говорил я не о том, а о

function Calc(Xmin,Xmax,H_tabl,x,y,z:extended):extended;
begin
  x:=Xmin;
  Result:=0;
  while x<Xmax do
    begin
      Result:=((2*cos(x-pi/6))/(0.5+Power(sin(y),2)))/(1+Power(z,2)/3-((Power(z,2))/5));
      x:=x+H_tabl;
    end;
end;

этом.
Вы отдаёте себе отчёт в том, что эта функция вычисляет последнуюю точку графика? Только её она и возвращает и никакую другую. Не знаю чего именно хотел Ваш преподаватель, но могу предположить, что нечто вроде такого:

function Calc(x,y,z:extended):extended;
begin
      Result:=((2*cos(x-pi/6))/(0.5+Power(sin(y),2)))/(1+Power(z,2)/3-((Power(z,2))/5));
end;

...

  repeat
    Series1.AddXY(x, Calc(x, y, z),'',clRed);
    X:=X+H_tabl;
  until (X>Xmax);

[StudeHt]

В этом то вся и проблема, что препод сказал полностью вынести вычисления, а не одну функцию.. Еще попробую что-нить придумать, а если нет, то действительно просто вынесу одну функцию вычисления, спасибо Вам!