Непонятки с GetKeyState

[Terrance!]

procedure TForm1.K1press(Sender: TObject; var Key: Char);
begin
If ((GetKeyState(ord('q')) AND 128)=128) and
      ((GetKeyState(ord('e'))   AND 128)=128)
then (image2.Top:=image2.Top+1)
else
If ((GetKeyState(ord('q')) AND 128)=128) and
      ((GetKeyState(ord('e'))   AND 128)=128)
then (image10.Top:=image10.Top+1)
end;
end.

При нажатии двух кнопок картинки поднимаются вверх, но только один раз при каждом новом нажатии. Мне нужно, чтобы удерживая две клавиши вместе, эти картинки поднимались и не останавливались, пока я не отпущу клавиши.
Хелпь ми плизь.

[MaxNik2009]

ну тогда кинь на форму Timer и в обработчике OnTime вставь свой код.
Интервал таймера поставь 10.