Помогите плиз. Делаю что-то типа арканоида (мой первый проект)-сделал процедуру которая отвечает за "полет" шарика. Все ОК шарик летает, но через пару сек. начинает двигаться рывками-смотрю загрузку проца-100%.Че я не так замутил?Код ниже.Спасибо.
procedure My.Go;
var  sp,ang:real;so:bool;
begin
sp:=2; ang:=3;
so:=false;
 if dir_x>0 then x:=x+sp
 else x:=x-sp;
 if dir_y>0 then y:=y+sp
 else y:=y-sp;
with Form1 do
begin
 if x>width-30 then begin
 so:=true;
 dir_x:=-1
 end;
 if y>height-90 then begin
 so:=true;
 dir_y:=-1
 end;
 if x<10 then begin
 so:=true;
 dir_x:=1
 end;
 if y<10 then begin
 so:=true;
 dir_y:=1
 end;

if so then beep;

   px:=trunc(x);
   py:=trunc(y);
//  Application.ProcessMessages;sleep(0);
   Shape1.Left:=px;
   Shape1.Top:=py;
   Shape1.Update;
end; //with
// Application.ProcessMessages;

end;

че никто

А кто будет нормально переменные называть?
А то что проц на 100% загружен, так это нормально. Тыж его и грузиш.

Судя по коду, я бы в такой арканоид играть точно не стал.