Var  // Локальный переменные
  apples, bananas : Integer;
begin
  // Присвоение количества наших фруктов
  apples  := 1;
  bananas := 1;

  // Показ их начальных значений
  ShowMessage('Apples  = '+IntToStr(apples));
  ShowMessage('Bananas = '+IntToStr(bananas));
  ShowMessage('');

  // Их увеличение в подпрограмме UpdateCounts
  UpdateCounts(apples, bananas);

  // Показ их новых значений - будут модифицированы только Bananas
  ShowMessage('Apples  = '+IntToStr(apples));
  ShowMessage('Bananas = '+IntToStr(bananas));
end;


// Процедура для увеличения значения переданных параметров
procedure TForm1.UpdateCounts(count1: Integer; Var count2: Integer);
begin
  // Увеличение обоих переданных значений параметра
  Inc(count1);
  Inc(count2);
end;