Alinhamento Justificar

[SLICK 0]

Alguem pode me dizer como colocar o texto de forma justificada? Sei como fazer centralizado, a direita e a esquerda, mas se puderem dar uma mão quanto ao alinhamento justificado....

[Aroldo Zanela 0]

Colega,

 

Acho que havia ficado lhe devendo o uso de Word:

 

function CrieObjeto(const ClasseNome: String): IDispatch;var Classifique_Id: TGUID;    Desconhecido: IUnknown;begin  Classifique_ID:=ProgIdToClassId(ClasseNome);  if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then    OleCheck(desconhecido.QueryInterface(Idispatch, Result))  else    Result:=CreateOleObject(ClasseNome);end;procedure TFormX.btnContratoClick(Sender: TObject);var Doc: Variant;begin	Word2k := CrieObjeto('Word.Application');  Doc := Word2k.Documents.Open('c:\dados\factoring\contrato de factoring.doc');  // Contratante  Doc.Content.Find.Execute(FindText := '@01', ReplaceWith := tbCadastroCED_NOME.Value);  Doc.Content.Find.Execute(FindText := '@02', ReplaceWith := tbCadastroCED_DENOM.Value);  Doc.Content.Find.Execute(FindText := '@03', ReplaceWith := tbCadastroCED_RAMO.Value);  Doc.Content.Find.Execute(FindText := '@04', ReplaceWith := MascaraCNPJ(tbCadastroCED_CGC.Value));  Doc.Content.Find.Execute(FindText := '@05', ReplaceWith := tbCadastroCED_INSCRI.Value);  Doc.Content.Find.Execute(FindText := '@06', ReplaceWith := tbCadastroCED_ENDERE.Value);  Doc.Content.Find.Execute(FindText := '@07', ReplaceWith := tbCadastroCED_BAIRRO.Value);  Doc.Content.Find.Execute(FindText := '@09', ReplaceWith := tbCadastroCED_CIDADE.Value);  Doc.Content.Find.Execute(FindText := '@10', ReplaceWith := tbCadastroCED_ESTADO.Value);  Doc.Content.Find.Execute(FindText := '@11', ReplaceWith := MascaraCEP(tbCadastroCED_CEP.Value));  Doc.Content.Find.Execute(FindText := '@12', ReplaceWith := tbCadastroCED_TELEFO.Value);  Doc.Content.Find.Execute(FindText := '@13', ReplaceWith := tbCadastroCED_FAX.Value);  Word2k.Visible := true;end;