Avanzar y Retroceder porpárrafos

[sac]

Mi problema es que quisiera que apretando algún botón el memo avance de a párrafos hacia abajo y con otro en sentido inverso. y no como es común avanzar o retroceder por línea o con los botones de Av. y re. de página
No sé qué código puedo usar.
Alguna idea?

[Neftali [Germán.Estévez]]

Con este código puedes avanzar (scroll) una serie de líneas (en este caso 100).

Código Delphi [-]
var
  ScrollMessage:TWMVScroll;
  i:Integer;
begin
  ScrollMessage.Msg:=WM_VScroll;
  for i := 0 to 100 do begin
    ScrollMessage.ScrollCode:=sb_LineDown;
    ScrollMessage.Pos:=0;
    Memo1.Dispatch(ScrollMessage) ;
  end;

Puedes cambiar el tipo de scroll por SB_LINEUP para realizarlo hacia arriba.

Con algunas pequeñas modificaciones, creo que puedes conseguir que el scroll sea por párrafos, por ejemplo, buscando el caracter de Fin_de_linea o el Carry_return.

[sac]

Neftali primeramente gracias por la respuesta estoy intentando hacer algo con el código que me pasaste. Explicame cómo identificarías ese "caracter de fin de línea" o el Carry_return. Nunca los use.
Gracias de nuevo

[Neftali [Germán.Estévez]]

El CR y LF corresponden a #13 y #10.

[sac]

perdón la ignorancia Neftalí pero que sería #13 y#10?

[Neftali [Germán.Estévez]]

El #10 es el LF (Salto de línea) y el #13 el CR (Retorno de carro); Normalmente vienen en el siguiente orden: CR+LF (#13#10)

Si escribes en un Memo y luego vuelcas el contenido a un String:

Código Delphi [-]
  Str := Memo1.Lines.Text;

Verás que el contenido es algo así:

'Lunes'#$D#$A'Martes'#$D#$A'Miercoles'#$D#$A

El #$D es el #13 (en Hexadecimal) y el #$A el #10