Цикл с предусловием: протабулировать функцию и нарисовать график

y := exp((1/3)*ln(cos(4*x) + (1/2)));

procedure TForm1.N2Click(Sender: TObject);
var x, a, b, h, y, k, v: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
h := StrToFloat(Edit3.Text);
x := a;
k := 0;
v := 0;
 
Memo1.Lines.Add('Табулювання функції');
Memo1.Lines.Add('x             y');
While x < b+h/2 do
begin
y := exp((1/3)*ln(cos(4*x) + (1/2)));
if y>0 then begin k := k + 1;
if y<0 then begin v := v + 1;
end;
end;
 
Chart1.Series[0].Add(y,FloatToStr(x),clGreen) ;
 
Memo1.Lines.Add(FloatToStr(x)+'          '+FloatToStr(y));
x:=x+h;
v := v + 1 ;
k := k + 1;
end;
 
Edit4.Text := FloatToStr(k);
Edit5.Text := FloatToStr(v);
 
end;

Power(cos(4*x) + (1/2),  1/3)

procedure TForm1.N2Click(Sender: TObject);
var x, a, b, h, y, t, MinY, MaxY: real;
    k, v: Integer;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  h := StrToFloat(Edit3.Text);
  x := a;
  k := 0;
  v := 0;
  MinY := MaxInt;
  MaxY := -MaxInt;
 
  Memo1.Lines.Add('Табулювання функції');
  Memo1.Lines.Add('x             y');
  While x < b+h/2 do
  begin
//    y := exp((1/3)*ln(cos(4*x) + (1/2)));
    t := cos(4*x) + (1/2);
    y := Power(Abs(t),  1/3);
    If t<0 Then y := -y;
    //Найдём минимальное и максимальное значения
    If MinY > y Then MinY := y;
    If MaxY < y Then MaxY := y;
 
    if y>0 then
    Inc(k) Else
    if y<0 then Inc(v);
 
    Chart1.Series[0].Add(y,FloatToStr(x),clGreen) ;
 
    Memo1.Lines.Add(FloatToStr(x)+'          '+FloatToStr(y));
    x:=x+h;
  end;
  Edit4.Text := IntToStr(k);
  Edit5.Text := IntToStr(v);
end;