numbersalenew.~pas

彩票销售系统

procedure TNumberSaleNew_form.ButtonEanble(Sender:Tobject);
begin
  bitbtn3.Enabled:=true;
  bitbtn4.Enabled:=true;
  bitbtn5.Enabled:=true;
  bitbtn6.Enabled:=true;
  bitbtn7.Enabled:=true;
  bitbtn8.Enabled:=true;
  bitbtn9.Enabled:=true;
  bitbtn10.Enabled:=true;
  bitbtn11.Enabled:=true;
  bitbtn12.Enabled:=true;
  bitbtn13.Enabled:=true;
  bitbtn14.Enabled:=true;
  bitbtn15.Enabled:=true;
  bitbtn16.Enabled:=true;
  bitbtn17.Enabled:=true;
  bitbtn18.Enabled:=true;
  bitbtn19.Enabled:=true;
  bitbtn20.Enabled:=true;
  bitbtn21.Enabled:=true;
  bitbtn22.Enabled:=true;
  bitbtn23.Enabled:=true;
  bitbtn24.Enabled:=true;
  bitbtn25.Enabled:=true;
  bitbtn26.Enabled:=true;
  bitbtn27.Enabled:=true;
  bitbtn28.Enabled:=true;
  bitbtn29.Enabled:=true;
  bitbtn30.Enabled:=true;
  bitbtn31.Enabled:=true;
  bitbtn32.Enabled:=true;
  bitbtn33.Enabled:=true;
  bitbtn36.Enabled:=true;
  bitbtn37.Enabled:=true;
  bitbtn38.Enabled:=true;
  bitbtn39.Enabled:=true;
  bitbtn40.Enabled:=true;
  bitbtn55.Enabled:=true;
end;

procedure TNumberSaleNew_form.ButtonColor(Sender:Tobject);
begin
  bitbtn3.Font.Color:=clPurple; Bitbtn3.Refresh;
  bitbtn4.Font.Color:=clPurple; Bitbtn4.Refresh;
  bitbtn5.Font.Color:=clPurple; Bitbtn5.Refresh;
  bitbtn6.Font.Color:=clPurple; Bitbtn6.Refresh;
  bitbtn7.Font.Color:=clInfoText;Bitbtn7.Refresh;
  bitbtn8.Font.Color:=clInfoText; Bitbtn8.Refresh;
  bitbtn9.Font.Color:=clActiveCaption;Bitbtn9.Refresh;
  bitbtn10.Font.Color:=clActiveCaption;Bitbtn10.Refresh;
  bitbtn11.Font.Color:=clActiveCaption;Bitbtn11.Refresh;
  bitbtn12.Font.Color:=clActiveCaption;Bitbtn12.Refresh;
  bitbtn13.Font.Color:=clRed;Bitbtn13.Refresh;
  bitbtn14.Font.Color:=clRed;Bitbtn14.Refresh;
  bitbtn15.Font.Color:=clRed; Bitbtn15.Refresh;
  bitbtn16.Font.Color:=clBlue; Bitbtn16.Refresh;
  bitbtn17.Font.Color:=clBlue;Bitbtn17.Refresh;
  bitbtn18.Font.Color:=clBlue; Bitbtn18.Refresh;
  bitbtn19.Font.Color:=clGreen; Bitbtn19.Refresh;
  bitbtn20.Font.Color:=clGreen; Bitbtn20.Refresh;
  bitbtn21.Font.Color:=clGreen; Bitbtn21.Refresh;
  bitbtn22.Font.Color:=clTeal;Bitbtn22.Refresh;
  bitbtn23.Font.Color:=clTeal; Bitbtn23.Refresh;
  bitbtn24.Font.Color:=clTeal; Bitbtn24.Refresh;
  bitbtn25.Font.Color:=clTeal; Bitbtn25.Refresh;
  bitbtn26.Font.Color:=clTeal;Bitbtn26.Refresh;
  bitbtn27.Font.Color:=clTeal;Bitbtn27.Refresh;
  bitbtn28.Font.Color:=clTeal; Bitbtn28.Refresh;
  bitbtn29.Font.Color:=clTeal;Bitbtn29.Refresh;
  bitbtn30.Font.Color:=clTeal;Bitbtn30.Refresh;
  bitbtn31.Font.Color:=clTeal; Bitbtn31.Refresh;
  bitbtn32.Font.Color:=clTeal;Bitbtn32.Refresh;
  bitbtn33.Font.Color:=clTeal;Bitbtn33.Refresh;
  bitbtn38.Font.Color:=clTeal; Bitbtn38.Refresh;
  bitbtn39.Font.Color:=clTeal; Bitbtn39.Refresh;
  bitbtn40.Font.Color:=clTeal;Bitbtn40.Refresh;
  bitbtn55.Font.Color:=clTeal;Bitbtn55.Refresh;
end;

procedure TNumberSaleNew_form.ButtonDisEanble(Sender:Tobject);
begin
  bitbtn3.Enabled:=false;
  bitbtn4.Enabled:=false;
  bitbtn5.Enabled:=false;
  bitbtn6.Enabled:=false;
  bitbtn7.Enabled:=false;
  bitbtn8.Enabled:=false;
  bitbtn9.Enabled:=false;
  bitbtn10.Enabled:=false;
  bitbtn11.Enabled:=false;
  bitbtn12.Enabled:=false;
  bitbtn13.Enabled:=false;
  bitbtn14.Enabled:=false;
  bitbtn15.Enabled:=false;
  bitbtn16.Enabled:=false;
  bitbtn17.Enabled:=false;
  bitbtn18.Enabled:=false;
  bitbtn19.Enabled:=false;
  bitbtn20.Enabled:=false;
  bitbtn21.Enabled:=false;
  bitbtn22.Enabled:=false;
  bitbtn23.Enabled:=false;
  bitbtn24.Enabled:=false;
  bitbtn25.Enabled:=false;
  bitbtn26.Enabled:=false;
  bitbtn27.Enabled:=false;
  bitbtn28.Enabled:=false;
  bitbtn29.Enabled:=false;
  bitbtn30.Enabled:=false;
  bitbtn31.Enabled:=false;
  bitbtn32.Enabled:=false;
  bitbtn33.Enabled:=false;

  bitbtn36.Enabled:=false;
  bitbtn37.Enabled:=false;
  bitbtn38.Enabled:=false;
  bitbtn39.Enabled:=false;
  bitbtn40.Enabled:=false;
 
  bitbtn55.Enabled:=false;
end;

//取最大值
procedure TNumberSaleNew_form.TMaxNumber(Sender:Tobject);
begin
  MaxNumber:=0;
  if Label115.Caption<>'' then begin if strtoint(Label115.Caption)>MaxNumber then MaxNumber:=strtoint(Label115.Caption); end;
  if Label116.Caption<>'' then begin if strtoint(Label116.Caption)>MaxNumber then MaxNumber:=strtoint(Label116.Caption); end;
  if Label117.Caption<>'' then begin if strtoint(Label117.Caption)>MaxNumber then MaxNumber:=strtoint(Label117.Caption); end;
  if Label118.Caption<>'' then begin if strtoint(Label118.Caption)>MaxNumber then MaxNumber:=strtoint(Label118.Caption); end;
  if Label119.Caption<>'' then begin if strtoint(Label119.Caption)>MaxNumber then MaxNumber:=strtoint(Label119.Caption); end;
  if Label120.Caption<>'' then begin if strtoint(Label120.Caption)>MaxNumber then MaxNumber:=strtoint(Label120.Caption); end;
  if Label121.Caption<>'' then begin if strtoint(Label121.Caption)>MaxNumber then MaxNumber:=strtoint(Label121.Caption); end;
  if Label122.Caption<>'' then begin if strtoint(Label122.Caption)>MaxNumber then MaxNumber:=strtoint(Label122.Caption); end;
  if Label123.Caption<>'' then begin if strtoint(Label123.Caption)>MaxNumber then MaxNumber:=strtoint(Label123.Caption); end;
  if Label124.Caption<>'' then begin if strtoint(Label124.Caption)>MaxNumber then MaxNumber:=strtoint(Label124.Caption); end;
  if Label125.Caption<>'' then begin if strtoint(Label125.Caption)>MaxNumber then MaxNumber:=strtoint(Label125.Caption); end;
  if Label126.Caption<>'' then begin if strtoint(Label126.Caption)>MaxNumber then MaxNumber:=strtoint(Label126.Caption); end;
  if Label127.Caption<>'' then begin if strtoint(Label127.Caption)>MaxNumber then MaxNumber:=strtoint(Label127.Caption); end;
  if Label128.Caption<>'' then begin if strtoint(Label128.Caption)>MaxNumber then MaxNumber:=strtoint(Label128.Caption); end;
  if Label129.Caption<>'' then begin if strtoint(Label129.Caption)>MaxNumber then MaxNumber:=strtoint(Label129.Caption); end;
  if Label130.Caption<>'' then begin if strtoint(Label130.Caption)>MaxNumber then MaxNumber:=strtoint(Label130.Caption); end;
  if Label131.Caption<>'' then begin if strtoint(Label131.Caption)>MaxNumber then MaxNumber:=strtoint(Label131.Caption); end;
  if Label132.Caption<>'' then begin if strtoint(Label132.Caption)>MaxNumber then MaxNumber:=strtoint(Label132.Caption); end;
  if Label133.Caption<>'' then begin if strtoint(Label133.Caption)>MaxNumber then MaxNumber:=strtoint(Label133.Caption); end;
  if Label134.Caption<>'' then begin if strtoint(Label134.Caption)>MaxNumber then MaxNumber:=strtoint(Label134.Caption); end;
  if Label135.Caption<>'' then begin if strtoint(Label135.Caption)>MaxNumber then MaxNumber:=strtoint(Label135.Caption); end;
  if Label136.Caption<>'' then begin if strtoint(Label136.Caption)>MaxNumber then MaxNumber:=strtoint(Label136.Caption); end;
  if Label137.Caption<>'' then begin if strtoint(Label137.Caption)>MaxNumber then MaxNumber:=strtoint(Label137.Caption); end;
  if Label138.Caption<>'' then begin if strtoint(Label138.Caption)>MaxNumber then MaxNumber:=strtoint(Label138.Caption); end;
  if Label139.Caption<>'' then begin if strtoint(Label139.Caption)>MaxNumber then MaxNumber:=strtoint(Label139.Caption); end;
  if Label140.Caption<>'' then begin if strtoint(Label140.Caption)>MaxNumber then MaxNumber:=strtoint(Label140.Caption); end;
  if Label141.Caption<>'' then begin if strtoint(Label141.Caption)>MaxNumber then MaxNumber:=strtoint(Label141.Caption); end;
  if Label142.Caption<>'' then begin if strtoint(Label142.Caption)>MaxNumber then MaxNumber:=strtoint(Label142.Caption); end;
  if Label143.Caption<>'' then begin if strtoint(Label143.Caption)>MaxNumber then MaxNumber:=strtoint(Label143.Caption); end;
  if Label144.Caption<>'' then begin if strtoint(Label144.Caption)>MaxNumber then MaxNumber:=strtoint(Label144.Caption); end;
  if Label145.Caption<>'' then begin if strtoint(Label145.Caption)>MaxNumber then MaxNumber:=strtoint(Label145.Caption); end;
  if Label146.Caption<>'' then begin if strtoint(Label146.Caption)>MaxNumber then MaxNumber:=strtoint(Label146.Caption); end;
  //if Label147.Caption<>'' then begin if strtoint(Label147.Caption)>MaxNumber then MaxNumber:=strtoint(Label147.Caption); end;
  if Label148.Caption<>'' then begin if strtoint(Label148.Caption)>MaxNumber then MaxNumber:=strtoint(Label148.Caption); end;
  if Label149.Caption<>'' then begin if strtoint(Label149.Caption)>MaxNumber then MaxNumber:=strtoint(Label149.Caption); end;
  //if Label150.Caption<>'' then begin if strtoint(Label150.Caption)>MaxNumber then MaxNumber:=strtoint(Label150.Caption); end;
  if Label151.Caption<>'' then begin if strtoint(Label151.Caption)>MaxNumber then MaxNumber:=strtoint(Label151.Caption); end;
  if Label152.Caption<>'' then begin if strtoint(Label152.Caption)>MaxNumber then MaxNumber:=strtoint(Label152.Caption); end;
  if Label153.Caption<>'' then begin if strtoint(Label153.Caption)>MaxNumber then MaxNumber:=strtoint(Label153.Caption); end;
  if Label154.Caption<>'' then begin if strtoint(Label154.Caption)>MaxNumber then MaxNumber:=strtoint(Label154.Caption); end;
  if Label155.Caption<>'' then begin if strtoint(Label155.Caption)>MaxNumber then MaxNumber:=strtoint(Label155.Caption); end;
  if Label156.Caption<>'' then begin if strtoint(Label156.Caption)>MaxNumber then MaxNumber:=strtoint(Label156.Caption); end;
  if Label157.Caption<>'' then begin if strtoint(Label157.Caption)>MaxNumber then MaxNumber:=strtoint(Label157.Caption); end;
  if Label158.Caption<>'' then begin if strtoint(Label158.Caption)>MaxNumber then MaxNumber:=strtoint(Label158.Caption); end;
  if Label159.Caption<>'' then begin if strtoint(Label159.Caption)>MaxNumber then MaxNumber:=strtoint(Label159.Caption); end;
  if Label160.Caption<>'' then begin if strtoint(Label160.Caption)>MaxNumber then MaxNumber:=strtoint(Label160.Caption); end;
  if Label161.Caption<>'' then begin if strtoint(Label161.Caption)>MaxNumber then MaxNumber:=strtoint(Label161.Caption); end;
  if Label162.Caption<>'' then begin if strtoint(Label162.Caption)>MaxNumber then MaxNumber:=strtoint(Label162.Caption); end;
  if Label163.Caption<>'' then begin if strtoint(Label163.Caption)>MaxNumber then MaxNumber:=strtoint(Label163.Caption); end;


end;

//出口显示
procedure TNumberSaleNew_form.TExitList(Sender:Tobject);
var
  ExitMoney,RemainMoney,AvgMoney,CountMoney:integer;
begin
  ExitMoney:=0;
  RemainMoney:=0;
  if Label164.Caption<>'' then
  begin
    odds_sp.Close;
    odds_sp.Parameters[1].value:=saleperiod;
    odds_sp.Parameters[2].value:=strtocurr(edit4.text);
    odds_sp.Parameters[3].value:=Null;
    odds_sp.ExecProc;
    if odds_sp.Parameters[3].Value<>Null  then
    begin
      if MainPhotoBz then
      begin
        if odds_sp.Parameters[3].Value<>100 then
        begin
           edit11.Text:=floattostr(odds_sp.Parameters[3].Value);
           edit11.Font.Color:=clBlue;
        end
        else
        begin
          edit11.Text:=floattostr(odds_sp.Parameters[3].Value);
          edit11.Font.Color:=clRed;
        end;
      end
      else
      begin
        if odds_sp.Parameters[3].Value<>100 then
        begin
           edit11.Text:=floattostr(odds_sp.Parameters[3].Value);
           edit11.Font.Color:=clBlack;
        end
        else
        begin
          edit11.Text:=floattostr(odds_sp.Parameters[3].Value);
          edit11.Font.Color:=clRed;
        end;
      end;
    end
    else
    begin
      edit11.text:='';
    end;
    odds_sp.Close;
    AvgMoney:=strtoint(edit4.text);
    CountMoney:=strtoint(Label164.Caption);

    if label115.Visible then begin    if strtoint(Label115.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label115.Caption:=inttostr(strtoint(Label115.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label115.Caption);Label115.Caption:='';Label115.visible:=false; end; end;
    if label116.Visible then begin    if strtoint(Label116.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label116.Caption:=inttostr(strtoint(Label116.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label116.Caption);Label116.Caption:='';Label116.visible:=false;end; end;
    if label117.Visible then begin    if strtoint(Label117.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label117.Caption:=inttostr(strtoint(Label117.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label117.Caption);Label117.Caption:='';Label117.visible:=false;end; end;
    if label118.Visible then begin    if strtoint(Label118.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label118.Caption:=inttostr(strtoint(Label118.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label118.Caption);Label118.Caption:='';Label118.visible:=false;end; end;
    if label119.Visible then begin    if strtoint(Label119.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label119.Caption:=inttostr(strtoint(Label119.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label119.Caption);Label119.Caption:='';Label119.visible:=false;end; end;
    if label120.Visible then begin    if strtoint(Label120.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label120.Caption:=inttostr(strtoint(Label120.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label120.Caption);Label120.Caption:='';Label120.visible:=false;end;  end;
    if label121.Visible then begin    if strtoint(Label121.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label121.Caption:=inttostr(strtoint(Label121.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label121.Caption);Label121.Caption:='';Label121.visible:=false;end; end;
    if label122.Visible then begin    if strtoint(Label122.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label122.Caption:=inttostr(strtoint(Label122.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label122.Caption);Label122.Caption:='';Label122.visible:=false;end; end;
    if label123.Visible then begin    if strtoint(Label123.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label123.Caption:=inttostr(strtoint(Label123.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label123.Caption);Label123.Caption:='';Label123.visible:=false;end; end;
    if label124.Visible then begin    if strtoint(Label124.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label124.Caption:=inttostr(strtoint(Label124.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label124.Caption);Label124.Caption:='';Label124.visible:=false;end; end;
    if label125.Visible then begin    if strtoint(Label125.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label125.Caption:=inttostr(strtoint(Label125.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label125.Caption);Label125.Caption:='';Label125.visible:=false;end; end;
    if label126.Visible then begin    if strtoint(Label126.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label126.Caption:=inttostr(strtoint(Label126.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label126.Caption);Label126.Caption:='';Label126.visible:=false;end; end;
    if label127.Visible then begin    if strtoint(Label127.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label127.Caption:=inttostr(strtoint(Label127.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label127.Caption);Label127.Caption:='';Label127.visible:=false;end; end;
    if label128.Visible then begin    if strtoint(Label128.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label128.Caption:=inttostr(strtoint(Label128.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label128.Caption);Label128.Caption:='';Label128.visible:=false;end; end;
    if label129.Visible then begin    if strtoint(Label129.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label129.Caption:=inttostr(strtoint(Label129.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label129.Caption);Label129.Caption:='';Label129.visible:=false;end; end;
    if label130.Visible then begin    if strtoint(Label130.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label130.Caption:=inttostr(strtoint(Label130.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label130.Caption);Label130.Caption:='';Label130.visible:=false;end;  end;
    if label131.Visible then begin    if strtoint(Label131.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label131.Caption:=inttostr(strtoint(Label131.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label131.Caption);Label131.Caption:='';Label131.visible:=false;end; end;
    if label132.Visible then begin    if strtoint(Label132.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label132.Caption:=inttostr(strtoint(Label132.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label132.Caption);Label132.Caption:='';Label132.visible:=false;end; end;
    if label133.Visible then begin    if strtoint(Label133.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label133.Caption:=inttostr(strtoint(Label133.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label133.Caption);Label133.Caption:='';Label133.visible:=false;end; end;
    if label134.Visible then begin    if strtoint(Label134.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label134.Caption:=inttostr(strtoint(Label134.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label134.Caption);Label134.Caption:='';Label134.visible:=false;end; end;
    if label135.Visible then begin    if strtoint(Label135.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label135.Caption:=inttostr(strtoint(Label135.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label135.Caption);Label135.Caption:='';Label135.visible:=false;end; end;
    if label136.Visible then begin    if strtoint(Label136.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label136.Caption:=inttostr(strtoint(Label136.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label136.Caption);Label136.Caption:='';Label136.visible:=false;end; end;
    if label137.Visible then begin    if strtoint(Label137.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label137.Caption:=inttostr(strtoint(Label137.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label137.Caption);Label137.Caption:='';Label137.visible:=false;end;  end;
    if label138.Visible then begin    if strtoint(Label138.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label138.Caption:=inttostr(strtoint(Label138.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label138.Caption);Label138.Caption:='';Label138.visible:=false;end; end;
    if label139.Visible then begin    if strtoint(Label139.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label139.Caption:=inttostr(strtoint(Label139.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label139.Caption);Label139.Caption:='';Label139.visible:=false;end; end;
    if label140.Visible then begin    if strtoint(Label140.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label140.Caption:=inttostr(strtoint(Label140.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label140.Caption);Label140.Caption:='';Label140.visible:=false;end; end;
    if label141.Visible then begin    if strtoint(Label141.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label141.Caption:=inttostr(strtoint(Label141.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label141.Caption);Label141.Caption:='';Label141.visible:=false;end; end;
    if label142.Visible then begin    if strtoint(Label142.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label142.Caption:=inttostr(strtoint(Label142.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label142.Caption);Label142.Caption:='';Label142.visible:=false;end; end;
    if label143.Visible then begin    if strtoint(Label143.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label143.Caption:=inttostr(strtoint(Label143.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label143.Caption);Label143.Caption:='';Label143.visible:=false;end; end;
    if label144.Visible then begin    if strtoint(Label144.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label144.Caption:=inttostr(strtoint(Label144.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label144.Caption);Label144.Caption:='';Label144.visible:=false;end; end;
    if label145.Visible then begin    if strtoint(Label145.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label145.Caption:=inttostr(strtoint(Label145.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label145.Caption);Label145.Caption:='';Label145.visible:=false;end; end;
    if label146.Visible then begin    if strtoint(Label146.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label146.Caption:=inttostr(strtoint(Label146.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label146.Caption);Label146.Caption:='';Label146.visible:=false;end; end;
    if label147.Visible then begin    if strtoint(Label147.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label147.Caption:=inttostr(strtoint(Label147.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label147.Caption);Label147.Caption:='';Label147.visible:=false;end; end;
    if label148.Visible then begin    if strtoint(Label148.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label148.Caption:=inttostr(strtoint(Label148.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label148.Caption);Label148.Caption:='';Label148.visible:=false;end; end;
    if label149.Visible then begin    if strtoint(Label149.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label149.Caption:=inttostr(strtoint(Label149.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label149.Caption);Label149.Caption:='';Label149.visible:=false;end; end;
    if label150.Visible then begin    if strtoint(Label150.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label150.Caption:=inttostr(strtoint(Label150.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label150.Caption);Label150.Caption:='';Label150.visible:=false;end; end;
    if label151.Visible then begin    if strtoint(Label151.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label151.Caption:=inttostr(strtoint(Label151.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label151.Caption);Label151.Caption:='';Label151.visible:=false;end; end;
    if label152.Visible then begin    if strtoint(Label152.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label152.Caption:=inttostr(strtoint(Label152.Caption)-AvgMoney); end  else begin ExitMoney:=ExitMoney+strtoint(Label152.Caption);Label152.Caption:='';Label152.visible:=false;end; end;
    if label153.Visible then begin    if strtoint(Label153.Caption)>AvgMoney then begin   ExitMoney:=ExitMoney+AvgMoney;Label153.Caption:=intto