procedure TForm1.Button1Click(Sender: TObject);
begin
  Label4.Caption:='   ' ;
  if r=StrToInt(Edit1.Text) Then Label1.Caption:='Ви вгадали число' Else
  if r>StrToInt(Edit1.Text) Then Label1.Caption:='Число більше'
                            Else Label1.Caption:='Число менше';
  k:=k+1;
  Label7.Caption:='Кількість спроб - '+IntToStr(k);
  if k=4 Then
  Begin
    Button1.Enabled:=False;   {Кнопку заблоковано}
      Label1.Caption:=' ';
      Label4.Caption:='Ви програли';
      Label6.Caption:='Перевищена кількість спроб. Загадене число - '+IntToStr(r);
  end;
end;