Способ перемещения рисунка по экрану, "подвисает", "подвисает" Опции

[-ShpateL-]

Только сегодня немного выучил графику. До этого ничего такого не делал, поэтому опыта почти нет. В общем написал кое-какую прогу. Вот её суть: в зависимости от нажатой клавиши (w, s, d, a), по экрану движется квадрат. Проблема вот в чем: квадрат передвигается не сразу, а только после 2-5 нажатия.
Вот фрагмент проги (clear - процедура очистки экрана от следов):

while readkey <> 'q' do begin

while readkey='w' do begin
y:=y-5;
if y<21 then y:=21;
Bar(x, y, x+20, y+20);
clear(x, y+20, x+20, y+25);
end;

while readkey='s' do begin
y:=y+5;
if y>459 then y:=459;
Bar(x, y, x+20, y+20);
clear(x, y-5, x+20, y);
end;

while readkey='a' do begin
x:=x-5;
if x<1 then x:=1;
Bar(x, y, x+20, y+20);
clear(x+20, y, x+25, y+20);
end;

while readkey='d' do begin
x:=x+5;
if x>618 then x:=618;
Bar(x, y, x+20, y+20);
clear(x-5, y, x, y+20);
end;

end;

Можно как-нибудь избавиться от такой фигни?

ЗЫ: вот сама прога...

[ShpateL]

А где сама прога?

Хотел дать екзешник, но он не клеется. Исходник показывать слекга стыдно, но если надо...

[volvo]

-ShpateL-, используй такую структуру:

repeat
  ch := readkey;
  case ch of
    'w': { Делаешь то, что тебе нужно ... }
    's': { ... }
    'd': { ... }
    'a': { ... }
  end;
until ch = #27;

[ShpateL]

Сэнкс вэри мач! Работает без задержек!