procedure TFMT3020101.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
   StringPart,
   NumberPart: String;
   Width,Width2: Integer;      {width of the numerical part of our string}
   LeftOffset: Integer; {Left offset of the right justified text}
   SecondLine: Integer; {vertical position of line 2 }
const
   Margin = 2;
begin
   //if ARow=1 then begin{只處理title}
     {extract the first word of the cell's text}
     StringPart := Copy(StringGrid1.Cells[ACol, ARow], 1,
                                     Pos(' ', StringGrid1.Cells[ACol, ARow])-1);
     {extract the numerical part of the cell's text}
     NumberPart := Copy(StringGrid1.Cells[ACol, ARow],
                       Length(StringPart) 1, Length(StringGrid1.Cells[ACol, ARow]));
     {What it the width of the text of the number?}
     Width := StringGrid1.Canvas.TextWidth(NumberPart);
     Width2 := StringGrid1.Canvas.TextWidth(StringPart);
     {Where do we position line 2?}
     SecondLine := Rect.Top   ((Rect.Bottom - Rect.Top) div 2);
     LeftOffset := Rect.Right - Width - Margin;
     {blank out the cell}
     StringGrid1.Canvas.FillRect(Rect);
     {draw the first line of text (the string part) at the top of the cell}
     StringGrid1.Canvas.TextOut(Rect.Left 30 Margin, Rect.Top Margin, StringPart);
    //StringGrid1.Canvas.TextOut(StringGrid1.ColWidths[ACol]-(Width2 div 2), Rect.Top Margin, StringPart);
     {draw the number part on line 2 but also right justify it}
     StringGrid1.Canvas.TextOut(LeftOffset, SecondLine, NumberPart);    end;