workingDC is a canvas of TBitmap
FFontSize.cx := ceil(workingDC.TextWidth('體') / 2);
FFontSize.cy := workingDC.TextHeight('體');
loop
r.Top:= r.Top+ FFontSize.cy ;
r.Bottom:= r.Bottom+ FFontSize.cy;
....
....
TextStyle := workingDC.TextStyle;
TextStyle.Wordbreak := False;
workingDC.Brush.Color := AnsiColorTable[ gc ];
workingDC.FillRect(r);
workingDC.font.Color := AnsiColorTable[ fc ];
workingDC.TextRect(r,r.Left,r.Top, s,TextStyle);