어제 DBGRID의 특정셀색상을 도움을 주셔서 성공을 했는데.. 셀 안의 내용들이 Rect.Left+2 덕분에 계속 좌측정렬만 되는데.. 모두 Center로 정렬 할수 있는 간단한 방법은 없을까요?

아래는 어제 만들어 주신 소스입니다.. 수정좀 부탁드려요...
=====================================================================

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   with TDBGrid(Sender).Canvas do begin
       if (Column.FieldName = 'percent') then
         begin
           if column.Field.AsInteger > 80 then
             begin
               Brush.Color := clBlue;
               Font.Color := clBlack;
             end
           else if column.Field.AsInteger > 50 then
             begin
               Brush.Color := clYellow;
               Font.Color := clBlack;
             end
           else
             begin
               Brush.Color := clRed;
               Font.Color := clBlack;
             end;
         end;

       if (gdFocused in State) or (gdSelected in State) then begin
           Brush.Color := clHighlight;
           Font.Color := clHighlightText;
       end;

// 이 아래 부분을 어찌 하면 될것 같은데.. T.T

       FillRect(Rect);
       TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);
       Brush.Style := bsSolid;
       Brush.Color := clWindow;
   end;
end;

감사합니다...