procedure TForm1.Button18Click(Sender: TObject);
begin
    button18.Enabled := False;
    button19.Enabled := False;
    button20.Enabled := False;
    button21.Enabled := False;
    button22.Enabled := False;
try

   if (CheckBox2.Checked = True) then
    begin Driver.Price := StrToCurr(Label131.Caption); end //Цена
   else
    begin Driver.Price := StrToCurr(Label93.Caption); end; //Цена

    Driver.Quantity := StrToCurr(Label91.Caption); //Количество
    Driver.Department := 0;

    Driver.StringforPrinting := 'Проживание';
    Driver.Sale; { Продажа }
    Driver.StringforPrinting := '';
    if Driver.ResultCode<>0 then
    begin
        UpdateResult; exit;
    end;

   if (CheckBox2.Checked = True) then
    begin
        if ComboBox6.Text = 'Наличные' then
        begin Driver.Summ1 := StrToCurr(Label132.Caption); end //Наличные
        else if ComboBox6.Text = 'Русский стандарт' then
        begin Driver.Summ2 := StrToCurr(Label132.Caption); end; // Рус. стандарт
    end
   else
    begin
        if ComboBox6.Text = 'Наличные' then
        begin Driver.Summ1 := StrToCurr(Label95.Caption); end //Наличные
        else if ComboBox6.Text = 'Русский стандарт' then
        begin Driver.Summ2 := StrToCurr(Label95.Caption); end; // Рус. стандарт
    end;

    Driver.CloseCheck; { Закрытие чека }
    if Driver.ResultCode<>0 then
    begin
        UpdateResult; exit;
    end;

    Sleep(2000);
    UpdateResult;

  finally
    button18.Enabled := True;
    button19.Enabled := True;
    button20.Enabled := True;
    button21.Enabled := True;
    button22.Enabled := True;
  end;

end;