Как сделать, чтобы сначала нажималась кнопка с цифрой, потом она выводилась, а потом только проверялось больше/меньше/равно загаданному числу

uses graphabc,ABCButtons;
var p,c,i,n,y,g,f,d,o,u,h:longint;
l,s:string;
btn,h1,h2,h3,h4,h5,h6,h7,h8,h9,h0:buttonabc;
z:boolean;
procedure h1click;
begin
setFontSize(10);
textout(12,p,'1');
u:=1;
end;
 
procedure h2click;
begin
setFontSize(10);
textout(12,p,'2');
u:=2;
end;
 
procedure h3click;
begin
setFontSize(10);
textout(12,p,'3');
u:=3;
end;
 
procedure h4click;
begin
setFontSize(10);
textout(12,p,'4');
u:=4;
end;
 
procedure h5click;
begin
setFontSize(10);
textout(12,p,'5');
u:=5;
end;
 
procedure h6click;
begin
setFontSize(10);
textout(12,p,'6');
u:=6;
end;
 
procedure h7click;
begin
setFontSize(10);
textout(12,p,'7');
u:=7;
end;
 
procedure h8click;
begin
setFontSize(10);
textout(12,p,'8');
u:=8;
end;
 
procedure h9click;
begin
setFontSize(10);
textout(12,p,'9');
u:=9;
end;
 
procedure h0click;
begin
setFontSize(10);
textout(12,p,'0');
u:=0;
end;
begin
SetWindowCaption('ИГРА"УГАДАЙ ЧИСЛО"'); 
SetWindowSize(1366,766);
clearwindow(clfuchsia);
h1:=new ButtonABC(800,450,810,460,'1',clwhite);
h1.Left:=1200;
h1.Height:=50;
h1.Width:=50;
h2:=new ButtonABC(800,450,810,460,'2',clwhite);
h2.Left:=1250;
h2.Height:=50;
h2.Width:=50;
h3:=new ButtonABC(800,450,810,460,'3',clwhite);
h3.Left:=1300;
h3.Height:=50;
h3.Width:=50;
h4:=new ButtonABC(800,500,810,510,'4',clwhite);
h4.Left:=1200;
h4.Height:=50;
h4.Width:=50;
h5:=new ButtonABC(800,500,810,510,'5',clwhite);
h5.Left:=1250;
h5.Height:=50;
h5.Width:=50;
h6:=new ButtonABC(800,500,810,510,'6',clwhite);
h6.Left:=1300;
h6.Height:=50;
h6.Width:=50;
h7:=new ButtonABC(800,550,810,560,'7',clwhite);
h7.Left:=1200;
h7.Height:=50;
h7.Width:=50;
h8:=new ButtonABC(800,550,810,560,'8',clwhite);
h8.Left:=1250;
h8.Height:=50;
h8.Width:=50;
h9:=new ButtonABC(800,550,810,560,'9',clwhite);
h9.Left:=1300;
h9.Height:=50;
h9.Width:=50;
h0:=new ButtonABC(800,600,810,610,'0',clwhite);
h0.Left:=1250;
h0.Height:=50;
h0.Width:=50;
randomize;
i:=25; p:=45;y:=65;o:=7;
setfontsize(10);setfontcolor(clpurple); textout(1125,5,'у вас есть 7 попыток угадать число');
setfontsize(10);setfontcolor(clpurple);
textout(12,o,'попытка номер 1');
setFontSize(10);
SetFontColor(CLgreen);
TextOut(12,i,'Ввидите число'); 
h1.OnClick:=h1click;
h2.OnClick:=h2click;
h3.OnClick:=h3click;
h4.OnClick:=h4click;
h5.OnClick:=h5click;
h6.OnClick:=h6click;
h7.OnClick:=h7click;
h8.OnClick:=h8click;
h9.OnClick:=h9click;
h0.OnClick:=h0click;
c:=random(0,9);
if u=c then begin
setfontsize(25);setfontcolor(clred);   textout(12,y,'УРА! Вы выйграли c 1');textout(355,y,'попытки!');
setpenwidth(5);
for o:=1 to 50 do begin
setpencolor(rgb(o*10,o*30,o*50));
line(675,300,random(500,1000),random(30,650));
end; 
end else
if u>c then textout(12,y,'Нет, загаданое число меньше!')else 
if u<c then textout(12,y,'Нет, загаданое число больше!');
end.

uses
  graphabc, ABCButtons;
var
  u, c, y, o, p, i: integer;
 
// Процедура проверки, не закончилась ли игра (либо выигрышем либо проигрышем игрока)
procedure check;
begin
  if u = c then // Введенная цифра = загаданной?
  begin
    setfontsize(25); // Сообщаем о выигрыше ...
    setfontcolor(clred);   
    // 8 - o - номер текущей попытки (изначально, например o = 7, значит, 8 - o = 1, первая попытка)
    textout(12, y, 'УРА! Вы выиграли c ' + IntToStr(8 - o) + ' попытки!');
    if o = 7 then // Это была первая попытка?
    begin
      setpenwidth(5); // Значит, рисуем особый рисунок
      for var j: integer := 1 to 50 do 
      begin
        setpencolor(rgb(j * 10, j * 30, j * 50));
        line(675, 300, random(500, 1000), random(30, 650));
      end; 
    end; // первая попытка
    Sleep(3000); // Ждем 3 секунды и завершаем программу...
    Halt;
  end 
 
  else // Нет, пользователь не отгадал число... Сообщаем, в какую сторону он ошибся
 
  if u > c then textout(12, y, 'Нет, загаданное число меньше!') 
  else textout(12, y, 'Нет, загаданное число больше!');
 
  // и увеличиваем позиции для вывода на следующей итерации
  inc(y, 40);
  inc(p, 40);
  dec(o); // Уменьшим количество оставшихся попыток
  
  if o = 0 then // Больше не осталось? Сообщаем пользователю, что он пролетел, число не угадано
  begin
    setfontsize(25);
    setfontcolor(clred);   
    textout(12, y, 'EPIC FAIL !!! Число не угадано !!!');
    Sleep(3000); // Ждем 3 секунды и уходим
    Halt;
  end;
end;
 
// Это будет общий обработчик нажатия на все кнопки, поскольку они все
// делают одно и то же, только с разными цифрами.
procedure buttonclick(Sender: ButtonABC);
begin
  setFontSize(10);
  textout(12, p, Sender.Text); // Sender - это экземпляр кнопки, которая была нажата
  // Соответственно, Sender.Text - это текст на нажатой кнопке
  u := StrToInt(Sender.Text);
 
  Check; // после того, как напечатали нажатую цифру в окне, вызываем процедуру проверки...
end;
 
var h : ButtonABC;
begin
  SetWindowCaption('ИГРА"УГАДАЙ ЧИСЛО"'); 
  SetWindowSize(1366, 766);
  clearwindow(clfuchsia);
 
  // Собственно, запоминать все кнопки не нужно.
  // Создали кнопку, назначили ей обработчик OnClickExt
  // (...Ext - чтобы можно было в обработчике узнать, какая именно кнопка нажата),
  // и создаем следующую кнопку ...
  h := new ButtonABC(1200, 450, 50, 50, '1', clwhite ); 
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1250, 450, 50, 50, '2', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1300, 450, 50, 50, '3', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1200, 500, 50, 50, '4', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1250, 500, 50, 50, '5', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1300, 500, 50, 50, '6', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1200, 550, 50, 50, '7', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1250, 550, 50, 50, '8', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1300, 550, 50, 50, '9', clwhite );
  h.OnClickExt := buttonclick;
  h := new ButtonABC(1250, 600, 50, 50, '0', clwhite );
  h.OnClickExt := buttonclick;
  
  randomize;
  c := random(0, 9); // загадываем число
  
  i := 25; p := 45;y := 65;o := 7; // выставляем начальные значения
  // и сообщаем пользователю то, что он должен знать
  setfontsize(10);setfontcolor(clpurple); textout(1125, 5, 'у вас есть 7 попыток угадать число');
  setfontsize(10);setfontcolor(clpurple);
  textout(12, o, 'попытка номер 1');
  setFontSize(10);
  SetFontColor(CLgreen);
  TextOut(12, i, 'Введите число');
 
  // Все, начальная настройка закончена, теперь ждем СОБЫТИЙ нажатия на кнопки, 
  // как только событие произошло - вызовется его обработчик, который уже будет проверять
  // результаты нажатия кнопок...
end.

uses graphabc,ABCButtons;
var p,c,i,h,n,y,g,f,d,o,u,x:longint;
l,s:string;
btn:buttonabc;
begin
SetWindowCaption('ИГРА"УГАДАЙ ЧИСЛО"'); 
SetWindowSize(1366,766);
clearwindow(clfuchsia);
randomize;
c:=random(3,100); i:=25; p:=45;y:=65;o:=7;
setfontsize(10);setfontcolor(clpurple); textout(1125,5,'у вас есть 7 попыток угадать число');
for x:=1 to 7 do begin
Str(x,s);
setfontsize(10);setfontcolor(clpurple);
textout(12,o,'попытка номер'); textout(105,o,s);
setFontSize(10);
SetFontColor(CLgreen);
TextOut(12,i,'Ввидите число'); 
readln(l);
val(l,h,n);
SetFontColor(clCoral);
textout(12,p,l);
SetFontColor(CLblue);
if h=c then begin
setfontsize(25);setfontcolor(clred);   textout(12,y,'УРА! Вы выйграли c '); textout(328,y,s); textout(355,y,'попытки!');
setpenwidth(5);
for o:=1 to 50 do begin
setpencolor(rgb(o*10,o*30,o*50));
line(675,300,random(500,1000),random(30,650));
end; 
 break;end else
if h>c then textout(12,y,'Нет, загаданое число меньше!')else 
if h<c then textout(12,y,'Нет, загаданое число больше!');
i:=i+90;
p:=p+90;
y:=y+90;
o:=o+90;
if x=7 then begin setfontsize(25);setfontcolor(clred);
textout(12,650,'Попытки кончились! Вы проиграли!');
end;
end;
end.