Problemas linea RichEdit

[mazuada]

ok. Gracias Lepe.
Y si en lugar de copiar el texto entre la posición 1 y donde está 'star', quiero copiar el texto de la linea donde se encuentra 'star'?
Escribo el código:


Código Delphi [-]
//Busco la palabra 'architecture' dentro del texto, es la palabra donde empieza la linea que quiero copiar:
Pos1:=Pos('architecture',RichEditEntity.Lines.Text);
ToEnd:=length(RichEditEntity.Text);

// Busco la palabra 'is' que la ultima palabra de la linea
Pos12:=RichEditEntity.FindText('is',1,ToEnd,[],);
while (Pos12 < Pos1) do
begin
Pos12:=RichEditEntity.FindText('is',Pos12+1,ToEnd,[],);

//copio en s el texto de la linea
s := Copy(RichEditEntity.Text, Pos1, Pos12);
//Pos guarda la posición de la linea dentro del texto
Pos:=RichEditEntity.Lines.IndexOf(s);






Problema:
s := Copy(RichEditEntity.Text, Pos1, Pos12);
en s se copia un texto más extenso que la linea!!!!
Alguien ve dónde está el error???
Gracias por adelantado