Me autorespondo:
Código Delphi
[-]procedure TPadronBuscaHistoria.GridHistoriaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (DataCol = 5) and
(trim(QueryHistoria.FieldByName('NOMBRE').AsString) = '') then begin
GridHistoria.Canvas.TextRect(Rect, Rect.Left + 8, Rect.Top+5,
QueryHistoria.fieldbyName('NOMBRE_NUEVO').AsString);
end;
end;
Fue hacer la pregunta e inmediatamente encontrar la solución.
Saludos.