Нажатие нескольких клавиш.

[Seemmyy]

При нажатии нескольких клавиш видит только одну.

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

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if key='w' then ...
  if key='s' then ...
  if key='o' then ...
  if key='l' then ...
end;

Тоесть, клавиши работают поочереди, а одновременно нет.
Подскажите, как исправить.

[Сквозняк]

Естественно, события нажатия клавиш выстроились в очередь и в порядке очереди обрабатываются Самое простое записывать время событий keydown и keyup и при KeyPress проверять по записям что там ещё нажато.