функция, производная, delphi

[azat94krg]

Модифицируйте программу, предусмотрев возможность табулирования функции и ее производной. Выбор варианта (с производной или без неё) осуществить с помощью дополнительного флажка

Написал следующее:

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

Ошибок нет, но я сомневаюсь в правильности, так как не понимаю сути.