#define MAXWORDS  50 
//---------------------------------------------------------------
void Draw1TextInStringGridCell(TStringGrid *g, TRect &Rect,
  AnsiString ss,  bool Center){
// Нарисовать текст в ячейке StringGrid *g
// Rect - ячейка, s - строка,
// Center - центрировать по горизонтали

int FontHeight,nString;
int i,k,TextLeft,CellWidth,n,nEmptyStrings;
AnsiString s[MAXWORDS],p1,p[MAXWORDS];

FontHeight=g->Canvas->TextHeight("a");
n=StringToWords(ss,s); // разбить строку на слова
nString=(Rect.Bottom-Rect.Top)/FontHeight; // в ячейку входит столько строк
CellWidth=Rect.Right-Rect.Left;
p[ 0 ]="";
k= 0 ;
for(i= 0 ;i<n;i++){
    TextLeft= 2 ;
    p1=p[k]+" "+s[i];
    if(g->Canvas->TextWidth(p1)>CellWidth){
        if(k>=MAXWORDS){
            Msg(PROGRAMMER,NULL,
              "Draw1TextInStringGridCell():\n"
              "Число слов превышает максимум (%d)",MAXWORDS);
            break;
        }
        k++;
        p[k]=s[i];
    } else {
        p[k]=p[k]+" "+s[i];
    }
}
n=k+ 1 ;
nEmptyStrings=(nString-n)/ 2 ;
if(nEmptyStrings< 0 ){
    nEmptyStrings= 0 ;
}
g->Canvas->FillRect(Rect);
for(i= 0 ;i<n;i++){
    if(Center){
        TextLeft=(CellWidth-g->Canvas->TextWidth(p[i]))/ 2 ;
        if(TextLeft< 0 ){
            TextLeft= 2 ;
        }
    }
    g->Canvas->TextOutA(Rect.Left+TextLeft,Rect.Top+
      (nEmptyStrings+i)*FontHeight,p[i]);
}
}