Justifica Texto No Qrrichtext

[Guest Visitante]

Fazendo uma pesquisa encontrei esse código que justifica texto num RichEdit;

procedure Justify;
const
WM_USER = $400;
EM_EXSETSEL = (WM_USER + 55);
EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202);
EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203);
TO_ADVANCEDTYPOGRAPHY = $1;
mZERO = $0;
var x :tparaformat;
L :LongInt;
cp :charrange;
begin
x.cbSize := sizeof(x);
if Form1.RichEdit1.SelLength = 0 then
   begin
   cp.cpMin := 0;
   cp.cpMax := length(Form1.RichEdit1.Text);
   SendMessage(Form1.RichEdit1.Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));
   end;
L := SendMessageA(Form1.RichEdit1.Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
   if L = 1 then
   begin
   SendMessageA(Form1.RichEdit1.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
   SendMessage(Form1.RichEdit1.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));
   x.dwMask := PFM_ALIGNMENT;
   x.wAlignment := PFA_JUSTIFY;
   SendMessage(Form1.RichEdit1.Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));
   end;
cp.cpMin := 0;
cp.cpMax := 0;
SendMessage(Form1.RichEdit1.Handle,EM_EXSETSEL,mZERO,lparam(@cp));
Form1.RichEdit1.WordWrap := true;
end;

e tentei alterá-lo (adaptar) para o QRRichText e não deu certo.

alguém teria a solução???

obrigado.