[Descendents]

estado mirando y prueba esto a ver que tal

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if (acol = 1) then begin
 StringGrid1.Canvas.Brush.Color := clblue;
 StringGrid1.Canvas.Font.Color := clHighlightText;
 StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[acol,arow]);
 end;
end;

Saltate el fill rect, y ponle el textrect,. y dale el color que quieres en el font del canvas

Saludos