TextOut

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TCanvas TextOut";
frm.Width =525;
frm.Height=375;
frm.OnPaint=frm_Paint;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Текст выведен методом TextOut";

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var cnv=frm.Canvas,rct=cnv.ClipRect,txt_Str="Пример текста";
  var x=rct.Left+(rct.Width() -cnv.TextWidth (txt_Str))/2;
  var y=rct.Top +(rct.Height()-cnv.TextHeight(txt_Str))/2;

  cnv.TextOut(x,y,txt_Str);
}