Циклические алгоритмы. Табулирование функций

{$R *.dfm}
uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,a,h,x,y:real;
    i,k:integer;
    str1,str2,str3: string;
begin
val(Edit1.Text,xn,i);
if i<>0 then
 begin
  ShowMessage('Неверно введено начало интервала xn');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,xk,i);
if (i<>0)or(xk<=xn) then
 begin
  ShowMessage('Неверно введен конец интервала xk');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
val(Edit3.Text,a,i);
if i<>0 then
 begin
  ShowMessage('Неверно введен параметр а');
  Edit3.Clear;
  Edit3.SetFocus;
  exit;
 end;
val(Edit4.Text,k,i);
if (i<>0)or(k<3) then
 begin
  ShowMessage('Неверно введено количество точек');
  Edit4.Clear;
  Edit4.SetFocus;
  exit;
 end;
Memo1.Clear;
Memo1.ScrollBars:=ssVertical;
Memo1.Font.Name:='Courier New';
Memo1.Lines.Add(' №     X       Y');
h:=(xk-xn)/(k-1);
for i:=0 to k-1 do
 begin
  x:=xn+i*h;
  Str(i+1:3,str1);
  Str(x:7:2,str2);
  if x<=-1 then y:=a*cos(x+1)+a
  else y:=a*power(x+2,3/2);
  Str(y:9:4,str3);
  Memo1.Lines.Add(str1+str2+str3);
 end;
 
end;