__property RowHeights;

        int s;
        unsigned int F;
           int h = grid->Canvas->TextHeight(Column->Field->Text);
           int l = grid->Canvas->TextWidth(Column->Field->Text);
           int c_l = Column->Width;
           if (l > c_l)
                {
           //Во сколько раз увеличить строку
                s = (int) (l / c_l +  1 );
                F = DT_LEFT | DT_WORDBREAK;
                }
           else
                {
                s =  1 ;
                F = DT_SINGLELINE | DT_LEFT;
                }
           grid->RowHeights[proc->RecNo] = h * s;
           RECT r;
        r.left = Rect.Left +  1 ;
        r.right = Rect.Right -  1 ;
        r.top = Rect.Top +  1 ;
        r.bottom = Rect.Bottom;
        grid->Canvas->FillRect(Rect);
           DrawText(grid->Canvas->Handle, Column->Field->Text.c_str(),
                Column->Field->Text.Length(), &r, F);