[VM]

Вот такой простой код, не отслеживает нажатие клавиши:

ShowForm;
  i := FormAddString('Предварительный текст  ...');
  while getKeyClicked <> KE_Star do begin 
    delay(50); 
  end; 
  i := FormAddString('Клавиша нажата  ...');
  delay(3000);