Я не говорю что мега супер,мне нравятца столкновения они для каждого кубика используютса,и заметь в zip архиве нет графики кроме шрифта,игра построена на такой фигне как на МБ,fillrect

Andrey, Это я заметил,мне главное знать как собирать полное приложение

Его собирать не фиг пецать,преверефицированый класс файл открой через Мобпаскаль и появитса окно для редактирования манифеста и добавлении ресурсов

Andrey, Напиши как превефецируешь,в каждую строчку что пишешь?

Вот код программы:
program Kubik;
var x,y,key:integer;
begin
x:=0;
y:=0;
while key<>GA_FIRE do
begin
getWidth;
getHeight;
drawRect(0,0,240,320);
SetColor(0,255,0);
FillRect(0,0,240,320);
SetColor(255,255,255);
FillRect(x,y,10,10);
setColor(0,255,0);
Repaint;
Delay(100);
Key:=keyToAction(GetKeyClicked);
  if key=GA_LEFT then x:=x-10;
  if key=GA_RIGHT then x:=x+10;
  if key=GA_UP then y:=y-10;
  if key=GA_DOWN then y:=y+10;
  end;
end.
Помогите чем сможете.

Почему вылет как сделать чтобы программа вобще не вылетала?чтобы вывело текст и все и теперь так пока сам не выйду
program name;
begin
drawText('Hello, World',5,5);
repaint;
repeat delay(5000);
until getKeyClicked<>KE_NONE;
end.

Andrey, Вот без вылетов,кстати как я понял delay это примерно как в MB sleep,только идёт отсчёт времени,а не замедление.

У меня и этот код не работает вылетает сразу

Andrey, А у меня работает,до тех пор пока я не нажму красную кнопку.

А ты на каком сайте качал?