Płynne przesuwanie elementu

Witam. Mam mały problem. Przy przesuwaniu elementu za pomocą strzałek występuje element przeskoku. Przy trzymaniu strzałki element porusza się o jedno miejsce, chwila przerwy i później już płynnie się przesuwa. Jak pozbyć się przeskoku.

procedure Tglowna.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_left then
klocekruch.Left:=klocekruch.left-20;
if key=vk_right then
klocekruch.Left:=klocekruch.left+20;
end;

Z góry dzięki za pomoc. Szukam już dwie godziny i nic. Nie mogę znaleźć odpowiedniej frazy do google.

podepnij te procedury do timera, albo dwóch. W zależności od klawisza uruchamiaj timer i zatrzymuj go przy onKeyUp. Te przeskoki są związane z ustawieniem opóźnienia na klawiaturze. Możesz je przestawić na zero ale wtedy używanie klawiatury w systemie będzie skrajnie niewygodne :)