Остановка анимации по нажатию клавиши

[Leontev]

Собственно, мне нужно написать программы в которой при нажатии клавиши 'P' человечек делает упражнение. Прекращает его при нажатии клавиши 's'.

Собственно, как сделать так, что бы человечек останавливался при нажатии 's'?

[Ism]

Афигеть , и что нужно ответить ?

[Leontev]

То есть как анимацию сделать, человечка нарисовать и пр. я вкурсе. Это несложно. Там задача в том, что на экран выводится зацикленная анимация. Её нужно остановить по нажатию клавиши. Как организовать цикл, в котором выводится изображение, что бы реализовать выход из него при нажатии клавиши?

[Ism]

Код: Выделить всё

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key='P' ...
end;

[Leontev]

Код: Выделить всё

while key<>'s' ...

Неизвестный идентификатор 'key'...

Тут вопрос в чем. Что бы программа не спрашивала, продолжать ли ей выполнение после каждой итерации, а продолжала выполнение цикла до нажатия клавиши.

[Ism]

тогда ttimer и то, что выше , надеюсь события в лазарус создавать умеете

[Leontev]

Попробую.