Операторы div и mod

Добавим пять событий: создание формы и 4 обработки нажатия кнопок

procedure TForm1.FormCreate(Sender: TObject);
begin
//гарантирует случайность
Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Задаем случайное двузначное число
Edit1.Text:=inttostr(Random(89)+10);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//десятки
Label1.Caption:=Inttostr(StrToInt(Edit1.Text) div 10);
//единицы
Label2.Caption:=Inttostr(StrToInt(Edit1.Text) mod 10);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Сумма
Label7.Caption:=Inttostr(StrToInt(Label1.Caption)+StrToInt(Label2.Caption));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//определение четности
if (StrToInt(Edit1.Text) mod 2) = 0 then
Label8.Caption:=’Четное’ else
Label8.Caption:=’Не четное’;
end;