---

// Описание глобальных переменных (размещается в разделе var модуля формы)
var
  n1, n2: integer;
  znak: char;

// Кнопка "1"
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  // Приписывание цифры к числу
  TextBox1.Text := TextBox1.Text + '1';
end;

// Кнопка "2"
procedure Form1.button9_Click(sender: Object; e: EventArgs);
begin
  // Приписывание цифры к числу
  TextBox1.Text := TextBox1.Text + '2';
end;

// Для остальных цифровых кнопок (3-9, 0) код аналогичен, 
// меняется только добавляемая цифра в кавычках.

// Кнопка "+"
procedure Form1.button12_Click(sender: Object; e: EventArgs);
begin
  n1 := StrToInt(TextBox1.Text);
  // Запоминание знака операции
  znak := '+';
  TextBox1.Clear;
end;

// Для остальных кнопок со знаками арифметических действий (-, *, /) 
// код аналогичен, меняется только символ операции в переменной znak.

// Кнопка "=" (Вычисление результата)
procedure Form1.button16_Click(sender: Object; e: EventArgs);
begin
  n2 := StrToInt(TextBox1.Text);
  
  case znak of
    '+': TextBox1.Text := IntToStr(n1 + n2);
    '-': TextBox1.Text := IntToStr(n1 - n2);
    '*': TextBox1.Text := IntToStr(n1 * n2);
    '/': TextBox1.Text := IntToStr(n1 div n2); // Целочисленное деление
  end;
  
  // Сброс переменных после вычисления
  n1 := 0;
  n2 := 0;
  znak := #0; // Пустой символ
end;

// Кнопка "C" (Сброс / Очистить)
procedure Form1.button15_Click(sender: Object; e: EventArgs);
begin
  TextBox1.Clear; 
  n1 := 0; 
  n2 := 0;
  znak := #0;
end;