как вывести знач. переменной в графическом режиме, ???? Опции

[AeRo]

люди, как можно вывести значение переменной в графическом режиме в определённом месте. насколько я знаю Outtext или OutTextXY не могут их выводить, тогда как????????

[Altair]

Вот посмотрите, что сделал я (только не смейтесь, для моих целей то, чтго надо)
Мне необходимо было выводить в граф. реж. цифры( от 0 до 256 -т.е максимум двухзначные)
Вот процедура:

Код

Procedure Buf_Str(CH:integer; var s1:string);
var
m,n,o:integer;
begin
s1:='';
If CH<1000 then
begin
n:=CH div 100;
s1:=s1+CHR(48+n)
end;
m:=(ch div 10) - n*100;
s1:=s1+CHR(48+m);
o:=ch-(n*100+m*10);
s1:=s1+CHR(48+o);
end;

Здесь CH -число которое записывается в строку S1
Т.е это под конкретную задачу.