Formatos word en richedit

[sac]

Perdón por la demora en entrar nuevamente al foro.
Efectivamente como todos dijeron el RichEdit reproduce los formatos de las fuentes en Word.

Les pregunto (si me dicen que abra un nuevo hilo lo hago) cómo hago para que un texto seleccionado en un memo aparezca en la primera linea visible de ese memo. No se si me explico.

Acá les dejo el código como lo tengo hasta ahora donde "cita" es un TEdit.

 p:= Pos(Cita.text, Memo1.Text);
    if p > 0 then begin
        Memo1.SelStart:= p - 1;
        Memo1.SelLength:= Length(Cita.Text);

Con este código viasualizo el memo y en la última línea visible de ese memo lo selecionado. Yo quisiera que esa lección quede en la primera línea que se ve del memo.

Gracias a todos.