Помощь по Sin, Sqrt, tan

//Извлечение из квадратного корня
function i_sqrt(a: Integer): Real;
begin
  result:= Sqrt(a);
end;
 
//SIN
function f_sin(a: Real): Real;
begin
  result:= sin(a);
end;
 
//ARCSIN
function f_arcsin(a: Real): Real;
begin
  result:= arcsin(a);
end;
 
//TAN
function f_tan(a: Real): Real;
begin
  result:= tan(a);
end;
 
........
 
............
........
          while i <= size_max do
            begin
              f_result:=i_sqrt(StrToInt(Edit2.Text));
              Inc(i);
            end;
          QueryPerformanceCounter(TInt64((@time_stop)^));
          QueryPerformanceFrequency(TInt64((@Frequency)^));
          tick_stop:=GetTickCount;
          ShowMessage(Edit1.Text+' '+Label1.Caption+' '+Edit2.Text+' = '+FloatToStr(f_result));
        end;
 
      //Sin
     .............
          while i <= size_max do
            begin
              f_result:=f_sin(StrToFloat(Edit2.Text));
              Inc(i);
            end;
........................
          ShowMessage(Edit1.Text+' '+Label1.Caption+' '+Edit2.Text+' = '+FloatToStr(f_result));
        end;
 
      //Arcsin
....................
          while i <= size_max do
            begin
              f_result:=f_arcsin(StrToFloat(Edit2.Text));
              Inc(i);
            end;
......................
 
      //Tanges
     ................
          while i <= size_max do
            begin
              f_result:=f_tan(StrToFloat(Edit2.Text));
              Inc(i);
            end;
..................
.......

//ARCSIN
function f_arcsin(a: Real): Real;
begin
  result:= arctan(a/sqrt(1-a*a));
end;
 
//TAN
function f_tan(a: Real): Real;
begin
  result:= sin(a)/cos(a);
end;