Ожидание, До anykey Опции

[Venik]

И снова здрасьте! Вообщем, выполняется операция. Repeat...until. И мне нужно, чтобы она выполнялась до тех пор, пока пользователь не нажмёт какую-нибудь клавишу.
И что получится? Напишите плиз. Пробовал разные варианты:
Repeat
...
Until AnyKey;
и тому подобное, но ничего не выходит. Скажите, какой код надо написать. Заранее спасибо.

[Гость]

Ах, да и есшо:
Вот у меня выводится текст постепенно (тобишь медленно, по буквам). Необходимо, чтобы когда пользователь нажмёт любую клавишу, текст перестал выводится (аналог CTRL+BRAKE) и вывелся сразу весь, чтобы можно было приступить к другим операциям.
Ну вот, например заставка в играх идёт, вы нажимаете Пробел, заставка выключается и появляется главное меню. Вот также, но только с текстом.
Вариант увелечение вывода скорости текста (путём уменьшения Delay) не предлагать.
Ну блин, вообщем выводится текст. Нажимаю пробел и выводится сразу весь текст. Разом.

[volvo]

Вариант увелечение вывода скорости текста (путём уменьшения Delay) не предлагать.

Но совсем без Delay ты тоже не обойдешься. Я надеюсь, объяснять, почему - не нужно?

uses crt;
const
  T = 50;

function get_char(var f: text): string;
var ch: char;
begin
  read(f, ch);
  if ch = #13 then begin
    read(f, ch);
    get_char := #13#10;
  end
  else get_char := ch;
end;

var
  f: text;
  ch: char;

begin
  assign(f, 'aa.txt');
  reset(f);

  repeat
    if not eof(f) then begin
      write(get_char(f));
      delay(T)
    end;
  until eof(f) or keypressed;

  while keypressed do readkey;

  while not eof(f) do
    write(get_char(f));
  close(f);
end.

В файле 'aa.txt' - текст, который будет печататься. Величину T подберешь экспериментально.