alineacion de un memo

[Choclito]

hola amigos del foro mi problema es el siguiente:
estoy utilizando un memo en el cual tengo q visualizar informes, las lineas las cargo por medio de varios edit de la siguiente forma:
memo2.Lines.Clear;
memo2.Lines[0]:=fecha.Text;
memo2.Lines.add('');
memo2.Lines.add('');
memo2.Lines.add(titulo.Text);
memo2.Lines.add('');
memo2.Lines.add(detalle.text);
Mi problema es el siguiente como hago para q el titulo se alinee al centro en el memo, que propiedad del memo utlizo para manipular la alineacion por cada linea q incluya
Otra pregunta como hago para q una determinada linea del memo este en negrilla, como manejar el estilo por cada linea
Esta bien utlizar el tmemo? o puedo utilizar otro componente?
Indicarles q busque en el foro y solo encontre la alineacion solo del componente pero no asi de cada linea q tenga
De antemano muchas gracias por la ayuda q me brinden

[roman]

El Memo es demasiado simple para lo que quieres. Prueba con un RichEdit.

// Saludos

[Choclito]

muchas gracias por la respuesta pero trabajando con richedit como hago para que una determinada linea tenga alineacion al centro o derecha y ademas este en negrilla
gracias por la ayuda

[[Lepe]]

Mira sobre SelAttributes actua sobre el texto seleccionado, en caso de la alineación, actúa sobre la linea completa.

Saludos

[Choclito]

muchisimas gracias lepe pero te agradeceria si me pudieras pasar un ejemplo espero no molestar gracias por la ayuda q me brindes

[[Lepe]]

Pues si tengo un ejemplito hecho... ahí va:

tb son botones de un Toolbar que tienen la propiedad Grouped a True para cambiar la negrita, subrayado, alineado, etc.

Código Delphi [-]
procedure TFrmReport.tbnegritaClick(Sender: TObject);
begin
if (fsbold in rich.SelAttributes.Style) then
  rich.SelAttributes.Style:=  rich.SelAttributes.Style - [fsbold]
else
  rich.SelAttributes.Style:=  rich.SelAttributes.Style + [fsbold];

tbnegrita.Down:=(fsbold in rich.SelAttributes.Style)
end;


procedure TFrmReport.RichSelectionChange(Sender: TObject);
var indicetemp:integer;
begin

case ord(rich.Paragraph.Alignment) of
  0: tbleft.down:=true;
  1: tbright.Down:=true;
  2: tbcenter.down:=true;
  else
  begin
    tbright.Down:=false;
    tbcenter.Down:=false;
    tbleft.Down:=false;
  end;
end;


tbnegrita.Down:=(fsbold in rich.SelAttributes.Style);
tbsubrayado.Down:=(fsUnderline in rich.SelAttributes.Style);
tbcursiva.down:=(fsitalic in rich.SelAttributes.Style);


end; //richselectionchange;

Saludos