procedure TForm1.StringGrid1DrawCell(Sender: T; Col, Row: Integer;

  Rect: TRect; State: TGridDrawState);
var
  Grid    : TStringGrid;

  Texto   : String;
const
 {Escoger una de las tres}
 {Choose one}
     ALINEACION =
//                DT_LEFT;

//                DT_RIGHT;
                DT_CENTER;
begin
  Grid := TStringGrid(Sender);

  if (Row < Grid.FixedRows) or (Col < Grid.FixedCols)

  then
    Grid.Canvas.Brush.Color := clBtnFace

  else
    Grid.Canvas.Brush.Color := clWhite;

  Grid.Canvas.FillRect(Rect);

  Texto := Grid.Cells[Col,Row];

  DrawText( Grid.Canvas.Handle,

            PChar(Texto),

            StrLen(PChar(Texto)),

            Rect,

            ALINEACION);
end;

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)