Delphi графики

[tanek]

ЗДраствуйте уважаемые форумчанины.
Никак не могу совладеть с компонентом TChar.
у меня уравнение с тремя переменными x,y,z
x меняется с шагом h
У меня не получается вывести на экран график функции.
Не могли бы вы мне помочь!?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    EditX: TEdit;
    EditY: TEdit;
    EditZ: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    calculation: TButton;
    Chart1: TChart;
    Series1: TLineSeries;
    EditXmax: TEdit;
    Label1: TLabel;
    step: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure calculationClick(Sender: TObject);
    procedure EditKeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
  EditX.Text:='0';
  EditY.Text:='0';
  EditZ.Text:='0';
end;

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9',',',#45]) then key:=#0;
end;


procedure TForm1.calculationClick(Sender: TObject);
var
  x,y,z,Xmax,h,temp,temp2,res : extended;
begin
   x:=StrToFloat(EditX.Text);
   y:=StrToFloat(EditY.Text);
   z:=StrToFloat(EditZ.Text);
   Xmax:=StrToFloat(EditXmax.Text);
   h:=StrToFloat(Step.Text);
   if (y=0) or (z=0) or (y<0) then  halt;
   repeat
   temp:=ln(Exp(-sqrt(abs(x))*Ln(y)))*(x-(y/2));
   temp2:=sqr(sin(arctan(z)));
   res:=temp+temp2;
         Series1.Clear;
       Series1.AddXY(x,res,'',clTeeColor);  // Вывод точки на график
       Series1.AddXY(y,res,'',clTeeColor);  // Вывод точки на график
       Series1.AddXY(z,res,'',clTeeColor);  // Вывод точки на график

   x:=x+h;
   until x>Xmax;
end;
end.

Заранее спасибо

[tanek]

Как я понимаю процедура Series1.AddXY выводит точки по двум переменым x и y. Но он почему то не выводит мне прмую линию, а должна быть кривая... Может мне как то нужно преобразовать уравнение?

[ИринаForeve]

А если попробовать убрать "Series1.Clear; " из цикла??? Я не знаю что должно получиться - считать долго, но кривая получается!