Здрасте люди! Помогите пожалуйста доделать игру, она должна быть в графическом режиме.
В архиве мой недоделок (tren(graph).pas) и образец по котораму я делаю в текстовом режиме (tren(txt).pas).
Помагите пожалуйста.

Первое, что бросилось в глаза:

case ch of
	'q': ch:='q'; 'w': ch:='w'; 'e': ch:='e'; 'r': ch:='r'; 't': ch:='t';
	'y': ch:='y'; 'u': ch:='u'; 'i': ch:='i'; 'o': ch:='o'; 'p': ch:='p';
	'a': ch:='a'; 's': ch:='s'; 'd': ch:='d'; 'f': ch:='f'; 'g': ch:='g';
	'h': ch:='h'; 'j': ch:='j'; 'k': ch:='k'; 'l': ch:='l'; 'z': ch:='z';
	'x': ch:='x'; 'c': ch:='c'; 'v': ch:='v'; 'b': ch:='b'; 'n': ch:='n';
	'm': ch:='m';
     end;

Это что? На всякий случай?

Потом, непонятно, что ты хочешь. С чем конкретно помочь? Не знаешь, как преобразовать число в строку для вывода через outtext? Вот функция:

function IntToStr(i: Longint): String;
var
	s: String;
begin
	Str(i, s) ;
	IntToStr := s;
end;

Не знаешь, почему буквы отображаются криво? Не надо их каждый раз рисовать поверх, надо стирать сперва.