Табулирование функции

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure Zad1;
var
  a,b,h,x,y: real;
  S: string;
begin
  Form2.Memo1.Clear;
  a:=1; b:=3.0001; h:=0.2;
  x:=a;
 
  repeat
    y:=sin(ln(x))-cos(ln(x))+2*ln(x);
    S:=FloatToStrF(x,ffFixed,2,1)+';      '+FloatToStrF(y,ffFixed,7,6);
    Form2.Memo1.Lines.Add(S);
    x:=x+h;
  until x>b
 
end;
 
procedure TForm2.FormShow(Sender: TObject);
begin
  Zad1;
end;
 
procedure TForm2.Memo1Change(Sender: TObject);
begin
 
end;
 
end.