Alineación de texto en las celdas

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var 
  Grid: TStringGrid;
  Texto: String;
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, DT_CENTER);
end;