Нормальная процедура отображения графических шрифтов

Code:

Procedure dNt(Text:string;x,y:integer;whatfont:String; center:integer); //Процедура отрисовки букв

var

  h:Tpicturecollectionitem;

  z:integer;

  dlina:integer;

  dlina2:integer;

begin

  if center=1 then

  begin

     dlina2:=0;

     for z:=1 to strlen(pchar(text)) do

     begin

        h:=myform.il.Items.Find(whatfont+inttostr(ord(text[z])));

        dlina2:=dlina2+h.PatternWidth+1;

     end;

     dnt(Text,x-dlina2 div 2,y,whatfont,0);

  end

  else

  begin

     dlina:=x;

     for z:=1 to strlen(pchar(text)) do

     begin

        h:=myform.il.Items.Find(whatfont+inttostr(ord(text[z])));

        h.Draw(myform.dxdraw.Surface,dlina,y,0);

        dlina:=dlina+h.PatternWidth+1;

     end;

  end;

end;