TStringGrid y Texto a la derecha

[yusnerqui]

Pedes hacerlo poniendo esto en el evento onDrawCell del TStringGrid

var
M : Byte;
SCad : String;
begin
if ACol = 1 then //Por ejemplo para la colummna 1
begin
SCad := StringGrid1.Cells[acol,arow];
with canvas,rect do
M:=Right-TextWidth(sCad+' ');
StringGrid1.Canvas.TextRect(Rect,M,Rect.Top+2,sCad);
end;
Saludos yusnerqui