problemas para validar el "enter" chr(13)

[roman]

Además de lo que te dice el compañero (trasnochado) jachguate, me parece que de no haber abandonado el tema texto en un MEMO ...encontrar comparar podrías haber llegado más rápido a algo así como:

var
  MemStream: TMemoryStream;
  Parser: TParser;
  Token: Char;
  Line: Integer;

begin
  MemStream := TMemoryStream.Create;
  Memo1.Lines.SaveToStream(MemStream);
  MemStream.Seek(soFromBeginning, 0);
  Parser := TParser.Create(MemStream);

  Line := 1;
  repeat
    while Line < Parser.SourceLine do
    begin
      Memo2.Lines.Add('<cr>');
      Inc(Line);
    end;

    Memo2.Lines.Add(Parser.TokenString);
  until Parser.NextToken = toEof;

  Parser.Free;
  MemStream.Free;
end;

que te separa en tokens (retornos de carro incluídos) el texto en Memo1 y los coloca como una lista en Memo2.

// Saludos

[sakuragi]

hola gracias me a servido mucho su ayuda

roman con esa forma el unico problema que he tenido es que los apostrofes no aparesen me los ignora y no e podido haser que me los despliegue ahi alguna forma?

de hante mano gracias