Para alinear un StringGrid, puedes poner el siguiente código en el evento
OnDrawCell del StringGrid:
Código Delphi
[-]
if ACol=2 then if ARow>0 then with StringGrid1 do
begin
Canvas.FillRect(Rect);
DrawText(Canvas.Handle,PChar(Cells[Acol,ARow]),-1,Rect,
DT_CENTER or DT_RIGHT or DT_SINGLELINE);
end;
Si cambias DT_RIGHT por DT_CENTER te centrará lo que escribas en la celda.
Si no escribes ningún código, no hará nada.