[Galahad]

HOLA,, Podrías poner 'marcas' en el richtext como por ejemplo <DIRECCION> y luego en el evento de impresión del richtext sustituir dicha cadena por la que quieras...
Aqui te mando un ejemplo de código.
Espero te sirva...
Saludos...

procedure TForm13.ppRichText1Print(Sender: TObject);
var ccad: tstrings;
    N:INTEGER;
begin
    ccad := pprichtext1.RichTextStrings;
    for n := 0 to ccad.count- 1 do
    begin
         if (pos('<CAMARON>',ccad.Strings[n] ) >0) then
         BEGIN
            CCAD.STRINGS[N] := ANSIREPLACETEXT(CCAD.STRINGS[N], '<CAMARON>','PESCADITO' );
         END;
    end;

end;