Como bien dice el amigo roman, se trata del mismo evento así que con solo unas pequeñas modificaciones lo podrás adaptar a lo que quieres.
Código Delphi
[-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var sCad:String;
i: integer;
begin
if ACol=2 then if ARow>0 then if StringGrid1.Cells[ACol,ARow] <> '' then
begin
sCad := StringGrid1.Cells[ACol,ARow];
with StringGrid1 do
with Canvas,Rect do
begin
i:=Right-TextWidth(sCad+' ');
Canvas.FillRect(Rect);
Canvas.TextOut(i,Top+2,sCad);
end;
end;
end;
Esto lo probé y me funciona.
Espero te Ayude.
Un saludo