Выравнивание шрифта в ячейках StringGrid

[-Maestro-]

Люди добрые, научите как выровнять (по центру) шрифт в ячейках StringGrid2, если в StringGrid1 на той же форме он был выровнен так:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var cr:TRect;
begin
with StringGrid1.Canvas do begin
cr:=StringGrid1.CellRect(acol,arow) ;
FillRect(cr);
TextOut(cr.left+((cr.Right-cr.Left) div2)-(TextWidth(StringGrid1.Cells[acol,arow]) div 2),
cr.Top+2,StringGrid1.Cells[acol,arow]);
end;
end;
Заранее благодарен.