На форму кидаешь один таймер, один статиктекс (для понта - в него будет выводить число), две кнопки, и один Едит:
Код для первой кнопки (генерация числа):
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
X : Integer; // Сгененрированное число
min : Integer; // Мин-ое число
max : Integer; // Макс-ое число
begin
min := 100000000; // Задаю мин-ое чило
max := 999999999; // Задаю макс-ое чило
Randomize; // Генератор случайных чисел (без него будут одни и теже числа генерироваться в начале)
X := RandomRange(min, max + 1); // Генерирую число и присваюваю пременной Х
StaticText1.Caption := IntToStr(X); // Вывожу в StaticText
Timer1.Enabled := True; // Запускаю таймер
end;
Код для таймера:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
StaticText1.Caption := ''; // Очищаю StaticText
end;
Код для второй кнопки (проверки введённого числа):
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Edit1.Text) <> X then
begin
Edit1.Text := ' Не правильно';
end
else Edit1.Text := ' Правильно';
end;
Таймеру выставляешь в енаблед ставишь False, а интервал 10000 - тогда он будет прятать чило через 10 секунд.
Подходит???