[ASSYS]

Нашел решение!

Код:

procedure TForm1.N2Click(Sender: TObject);
Var x,y,h,a,b,z,t:real;
Cod :integer;
str1,str2:string;
begin
Memo1.Lines.Add(' X F(X)');
Val(Edit1.Text, a, cod);
Val(Edit2.Text, b, cod);
Val(Edit3.Text, h, cod);
t := StrToFloat(Edit3.Text);//це дописав
x:=a;
while x<=b+t/2 do
begin
  y := (x/(x+6)) + (sqrt(x-4));//Формула
Str(x:8:2,str1);
Str(x:8:3,str2);
if CheckBox1.Checked then
Memo1.Lines.Add(Str1+str2);
x:=x+h;
if CheckBox2.Checked then
begin
  FileName:='C:\test.txt';
  Memo1.Lines.SaveToFile(FileName);
end;
end;