Отнимать значение по нажатию на кнопку

[Stilet]

но, значение уменьшается только один раз.

это потому что у тебя MainForm.Label30.Caption не изменяется.
Покажи код после того как ты сделал i глобальной.

[artemavd]

Во-вторых, нафига тогда i? Можно просто вычитать единицу

Не отнимается даже если так.
Может на примере кода покажете?
Виталий, вот код:

procedure TMainForm.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  MainForm.StringGrid1.RowCount:=MainForm.StringGrid1.RowCount + 1;
  MainForm.StringGrid1.Row:=MainForm.StringGrid1.RowCount - 1;
  MainForm.Label31.Caption:=IntToStr(StrToInt(MainForm.Label30.Caption) - i_blabla);
 end;
end;

[Utkin]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    
    Label1: TLabel;
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     x: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin

    if Key = #13 then
    begin

        Form1.x:=Form1.x-1;
        Label2.Caption:=IntToStr(x);  
        StringGrid1.SetFocus;
        Exit;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

    // Вводим данные
    x:=100;

    // отображаем данные
    Label1.Caption:=IntToStr(x);
end;

end.

Вот навскидку. Кнопка лишняя, просто отлаживал в ней . Компоненты StringGrid и 2 Label....

[Serge_Bliznykov]

Артём, Что-то Вы опять напутали...
Предложенный код работает нормально.
(а чему там, собственно, не работать?!)
выкладывают пример...


p.s. уп-с, опоздал - проглядел пример от Utkin. значит в моём уже особого смысла нет...

[artemavd]

Все, спасибо всем, с этим вроде разобрались .