Задача табулирования функции

procedure TForm1.N3Click(Sender: TObject);
     var x, y, y1, h, a, b : real;
         cod           : integer;
         str1, str2, str3     : string;
 begin
if CheckBox4.checked then
begin
Memo1.Lines.Add('     X        F(X)     F"(X)');
 end
else
begin
Memo1.Lines.Add('     X        F(X)');
Val(edit1.text, a, cod);
Val(edit2.Text, b, cod);
Val(edit3.Text, h, cod);
x:=a;  end;
while x<=b+h/2 do
  begin
  y:=sin(x)+1;
  y1:=cos(x);
  end;
  If CheckBox4.Checked then
  begin
  Str(x:8:2,str1);
  Str(y:8:3,str2);
  Str(y1:8:2, str3);
  str3:=str1+str2+str3
  end
  else
  begin
  Str(x:8:2, str1);
  Str(y:8:2, str2);
  str3:=str1+str2
 end;
  If CheckBox4.Checked then
  begin
  Memo1.Lines.Add(str1+str2);
  x:=x+h;
  end;
end;

var x,y,y1,h,a,b: real;
    m,i:integer;
    str1,str2,str3: string;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
m:=strtoint(edit3.Text);
h:=(b-a)/m;
Memo1.Clear;
if CheckBox4.checked then
Memo1.Lines.Add('     X        F(X)     F"(X)')
else Memo1.Lines.Add('     X        F(X)');
for i:=0 to m do
 begin
  x:=a+i*h;
  y:=sin(x)+1;
  y1:=cos(x);
  Str(x:8:2,str1);
  Str(y:8:3,str2);
  Str(y1:8:2, str3);
  if CheckBox4.Checked then
  Memo1.Lines.Add(str1+str2+str3)
  else Memo1.Lines.Add(str1+str2);
 end;
 
end;