Движение ДВУХ ОБЬЕКТОВ

[Wi1D]

Вообщем я пишу игрушку...как не бьюсь но не могу добиться более менее плавного движения двух обьектов!например ТАНКА и ПРИЦЕЛА!
Танк движеться сам по себе.Ну элементарным циклом.А прицел должен реагировать на кнопки.Я понимаю что в Паскале не получишь прям идеала но может есть хоть лучший вариант???Вот код

repeat
 if keypressed then
 begin
	key:=readkey;
	if key=#27 then exit:=true;
	if key=#0 then
	 begin
		key:=ReadKey;
		if key=#75 then if x1>1 then x1:=x1-3;
		if key=#77 then if x1<639 then x1:=x1+3;
		if key=#72 then if y1>1 then y1:=y1-3;
		if key=#80 then if y1<478 then y1:=y1+3;
	 end;
 end;
 ClearDevice;
 setColor(white);
 SetlineStyle(0,0,1);
 line(1,35,640,35);
 line(1,430,640,430);
 x:=x+1;
 Tank(x,y);
 PRICEL(x1,y1);
 Delay(20000);
 until exit;

[Utkin]

Прицел изменяется сразу на три единицы, а танк движется на одну. Куда ты выводишь свой прицел и танк? В смысле в какой объект? Как правило все визуальные компоненты имеют специальные процедуры, которые создают задержки (вместо твоего Delay) для того чтобы изображение не дергалось и не размазывалось.

[Wi1D]

например?пока что я решил проблему цикл репит там delay(50) двигать прицел а танк двигаеться каждый 1000 раз)))

приведи пример

[Min]

обычно в играх делается не так....... делаешь цикл.

цикл
считываешь нажатия клавишь и устанавливаешь объектам флаги перемещений.
считываешь время.
deltaTime:=ТекущийTime-ПрошлыйTime
обновляешь объекты исходя из флагов перемещений (на вход процедуры передаешь deltaTime и используешь его как коэффцициент, напимер для танка x:=x+deltaTime*speed)
конец цикла.

потом уже подбираешь speed'ы для объектов и задержки всякие.

[Stilet]

более менее плавного движения двух обьектов

Плавного это на сколько?
В твоем коде плавность контролируется операторами

x1:=x1...
...
Delay(20000);