procedure TForm2.Button2Click(Sender: TObject);
var
N,M,i,j:integer;
Vmin,Vmax,Lmin,Lmax,x0,alf,kv,kl:real;
SortArray:array of TmpPoint;
NearestValues:array of array of TmpPoint;
  + Procedure SortBaseArrayByRo (Poz,Vol,x0,alf,kv,kl:real; nLine:integer; var TmpArr:array of TmpPoint);
  + Function RoMath (Poz,Vol,kl,kv:real;i,j:integer):real;
  + Function SumRoMath (Poz,Vol,x0,alf,kv,kl:real):real;
  + Function FPointMath (Poz,Vol,x0,alf,kv,kl:real):real;  
  + Procedure CreateSurfaceMath(N,M:integer; Vmin,Vmax,Lmin,LMax,x0,alf,kv,kl:real);
 
begin
   form2.Memo1.Lines.Add('___1___');
  CreateSurfaceMath (N,M,Vmin,VMax,Lmin,LMax,x0,alf,kv,kl);
   form2.Memo1.Lines.Add('___2___');

  Form3.Image1.Picture:=nil;
   Drawaxis;
   Drawpixel;
   Drawlines;
end;

 Procedure SortBaseArrayByRo (Poz,Vol,x0,alf,kv,kl:real; nLine:integer; var TmpArr:array of TmpPoint);
    var
    //  TmpArr:array of TmpPoint;
     LTmpPoint:TmpPoint;
     j,k:integer;
    Function Ro (Poz,Vol,kl,kv:real;i,j:integer):real;
       begin
        Ro :=sqrt(sqr(BaseArr[i].Mass[j].Pos-Poz)*sqr(kl)+sqr(BaseArr[i].Mass[j].Vol-Vol)*sqr(kl));
       end;
    begin

      for j := 1 to BaseArr[nLine].Size do
        begin
          TmpArr[j].Pos  := BaseArr[nLine].Mass[j].Pos;
          TmpArr[j].Vol  := BaseArr[nLine].Mass[j].Vol;
          TmpArr[j].Force:= BaseArr[nLine].Mass[j].Force;
          TmpArr[j].Ro   := Ro (Poz,Vol,kl,kv,nLine,j);
        end;

     for j := 1 to 31 do
       for k := BaseArr[nLine].Size-j+1 downto 2 do
        begin
          if TmpArr[k].Ro<TmpArr[k-1].Ro then
            begin
             LTmpPoint.Ro:=TmpArr[k].Ro;
             TmpArr[k].Ro:=TmpArr[k-1].Ro;
             TmpArr[k-1].Ro:=LTmpPoint.Ro;

             LTmpPoint.Vol:=TmpArr[k].Vol;
             TmpArr[k].Vol:=TmpArr[k-1].Vol;
             TmpArr[k-1].Vol:=LTmpPoint.Vol;

             LTmpPoint.Force:=TmpArr[k].Force;
             TmpArr[k].Force:=TmpArr[k-1].Force;
             TmpArr[k-1].Force:=LTmpPoint.Force;

             LTmpPoint.Pos:=TmpArr[k].Pos;
             TmpArr[k].Pos:=TmpArr[k-1].Pos;
             TmpArr[k-1].Pos:=LTmpPoint.Pos;
            end;
        end;
      //  for j := 1 to BaseArr[nLine].Size do    form2.Memo1.Lines.Add(floattostr(TmpArr[j].Ro));
    end;