[roman]

Empezado por Al González

Código Delphi [-]
procedure TfrmPrncpl.QueryCampoRTFGetText(Sender: TField; var Text: String; DisplayText: Boolean);
Var
  AText :String Absolute Text;  // Trampilla para meter el parámetro "Text" al With

Hombre, también queda la opción de cambiar el nombre del parámetro

// Saludos