var
  Form1: TForm1;
  Monday:array[0..9] of array[0..2] of string; // массив для данных
  num:integer;                                             // рандомный номер строки
implementation

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}

procedure TForm1.Button1Click(Sender: TObject);// кнопка проверки
begin
  if Edit1.Text=Monday[num,1] then begin // сравнение английского слова с 1 вариантом перевода
    num:=random(9);                                    // совпадает, значит разыгрываем новое число
    Label1.Text:=Monday[num,0];                  // пишем его в label
    end
  else if (Edit1.Text=Monday[num,2]) and (Monday[num,2]<>' ') then begin // сравнение английского слова со 2 вариантом перевода
    num:=random(9);                                       // совпадает не с  пустым значение, значит разыгрываем новое число
    Label1.Text:=Monday[num,0]; // пишем его в label
  end;
  Edit1.Text:=' ';                                                  // очистка Edit
end;

procedure TForm1.Button2Click(Sender: TObject); // кнопка следующего слова
begin
  num:=random(9); //берем новый номер строки
  Label1.Text:=Monday[num,0]; // выводим это слово
  Edit1.Text:=' ';  // очищаем edit
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// генерируем массив
  Monday[0,0]:='hot';       Monday[0,1]:='Горячий';       Monday[0,2]:='Жаркий';
  Monday[1,0]:='happy';     Monday[1,1]:='Счастливый';    Monday[1,2]:='Довольный';
  Monday[2,0]:='wonderful'; Monday[2,1]:='Замечательный'; Monday[2,2]:='Изумительный';
  Monday[3,0]:='impotant';  Monday[3,1]:='Важный';        Monday[3,2]:='Значительный';
  Monday[4,0]:='large';     Monday[4,1]:='Большой';       Monday[4,2]:='Крупный';
  Monday[5,0]:='helpful';   Monday[5,1]:='Полезный';      Monday[5,2]:=' ';
  Monday[6,0]:='impotant';  Monday[6,1]:='Важный';        Monday[6,2]:=' ';
  Monday[7,0]:='popular';   Monday[7,1]:='Популярный';    Monday[7,2]:='Любимый';
  Monday[8,0]:='lonely';    Monday[8,1]:='Одинокий';      Monday[8,2]:=' ';
  Monday[9,0]:='acid';      Monday[9,1]:='Кислый';        Monday[9,2]:=' ';

  randomize; // меняем seed
  num:=random(9); // разыгрываем номер строки
  Label1.Text:=Monday[num,0]; // выводим английское слово
  Edit1.Text:=' '; // очищаем edit
end;

end.

procedure TForm1.Edit1Click(Sender: TObject);
var Keyboard: IFMXVirtualKeyboardService; //ввод переменной, отвечающей за обращение к сервису
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(Keyboard)) then Keyboard.ShowVirtualKeyboard(Edit1);
end;

procedure TForm1.Edit1Enter(Sender: TObject);
var Keyboard: IFMXVirtualKeyboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(Keyboard)) then Keyboard.HideVirtualKeyboard;
end;