delphide shapeyi donmadan hareket ettirme

arkadaşlar aşağıdaki kodla shapeyi hareket ettirirken tuşa tıklandığında 1 snlik bekleme oluyor sonra algılanıyor bu takılmanın önüne geçebilirmiiyiz

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
      begin
if Key = VK_LEFT then
Shape1.left := Shape1.left - 10;
if Key = VK_RIGHT then
Shape1.left := Shape1.left + 10;
if Key = VK_UP then Shape1.top := Shape1.top - 10;
if Key = VK_DOWN then
Shape1.top := Shape1.top + 10;

end;