var
  TW, TL:Integer;
begin
  ...
  if ACol = 2 then
   begin
     TW := StringGrid.Canvas.TextWidth(StringGrid.Cells[ACol, ARow]);
     TL := Rect.Right - TW - 4;
     StringGrid.Canvas.FillRect(Rect);
     StringGrid.Canvas.TextOut(TL, Rect.Top + 4, StringGrid.Cells[ACol, ARow]);
   end;
end;