[wilcg]

Bueno agradecer por sus aportes el código va quedando así:

Código Delphi [-]
procedure TFrCarpClientes.GridClientesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  R: TRect;
begin
  with TDBGridEh(Sender) do
  begin
    R := Rect;
    Canvas.FillRect(R);
    DrawText(Canvas.Handle, @Column.Field.AsString[1], -1, R, DT_SINGLELINE + DT_VCENTER + DT_END_ELLIPSIS);
  end;
end;

Y está funcionando bien, en principio el texto verticalmente quedaba aliniado en la parte superior del campo. he agregado DT_VCENTER y el texto ya está queda centrado. Ahora un detalle más ahora todos los campos Horizontalmente están aliniados a la izquierda del campo. como hago para dejarlo por defecto como estaba?.