unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin;

const
      zn=['+','-','*','/'];

type

  { TForm1 }
   TForm1 = class(TForm)
    BTN: TButton;
    dbg: TLabel;
    Progress: TMemo;
    XYlbl1: TLabel;
    XYlbl2: TLabel;
    Spin1: TSpinEdit;
    Spin2: TSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure ProccessMath(Sender: TObject);
    procedure SpinXY1(Sender: TObject);
    procedure SpinXY2(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1;
Xchange,CanMath:boolean;
Varmin,Varmax,X,Y,m:integer;
   mat: array of integer;
   res: array of integer;
   sshhooww:string;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin
 Progress.Visible:=False;
   XYlbl1.Caption:='Min';
   XYlbl2.Caption:='Max';
   BTN.Caption:='Init';
   Xchange:=True;
   CanMath:=False;
   X:=0;
   Y:=11;
end;




procedure TForm1.ProccessMath(Sender: TObject);

var
     i:integer;
begin
   if CanMath = True then
   begin
     Spin1.Visible:=False;
     XYlbl1.Visible:=False;
     Spin2.Visible:=False;
     XYlbl2.Visible:=False;
     Progress.Visible:=True;

       Progress.Caption:=('Loading..'#13#10'var 100%'#13#10'Generate...'#13#10'Function 100%'#13#10'wait..');
          for i:= varmin to varmax do
    begin
    X:=X+i;
    Y:=Y-i;
       mat[i]:=X;
       mat[i]:=mat[i]*X;
       mat[i]:=mat[i]+4;
       mat[i]:=mat[i]*X;
       mat[i]:=mat[i]*Y;
       mat[i]:=mat[i]-11;
       mat[i]:=mat[i]*Y;
       mat[i]:=mat[i]+Y*Y;
    end;

           sshhooww:=IntToStr(mat[3]);



     end;

      if CanMath = False then
   begin
BTN.Caption:='Start';
CanMath:=True;
    end;

end;

procedure TForm1.SpinXY1(Sender: TObject);
begin

 if Xchange=True then
    begin
      Varmin:=StrToInt(Spin1.Caption);
      Varmax:=StrToInt(Spin2.Caption);
    end;

end;

procedure TForm1.SpinXY2(Sender: TObject);
begin

end;

end.

procedure TForm1.ProccessMath(Sender: TObject);

var
     i:integer;
begin
   if CanMath = True then
   begin
     Spin1.Visible:=False;
     XYlbl1.Visible:=False;
     Spin2.Visible:=False;
     XYlbl2.Visible:=False;
     Progress.Visible:=True;

       Progress.Caption:=('Loading..'#13#10'var 100%'#13#10'Generate...'#13#10'Function 100%'#13#10'wait..');
          for i:= varmin to varmax do
    begin
    X:=X+i;
    Y:=Y-i;
       mat[i]:=X;
       mat[i]:=mat[i]*X;
       mat[i]:=mat[i]+4;
       mat[i]:=mat[i]*X;
       mat[i]:=mat[i]*Y;
       mat[i]:=mat[i]-11;
       mat[i]:=mat[i]*Y;
       mat[i]:=mat[i]+Y*Y;
    end;

           sshhooww:=IntToStr(mat[3]);



     end;

      if CanMath = False then
   begin
BTN.Caption:='Start';
CanMath:=True;
    end;

end;