...de cargarlo al TRichEdit a ver si le vemos algo extraño...
Corrida 1/3
slTexto.Text := '28-11-2011 10:46 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente present\'f3 un episodio de p\'e9rdida de consciencia de alrededor de 2 minutos.\f1 '#$D#$A'\par }'#$D#$A#$D#$A
redtResumenEventos.Text := '28-11-2011 10:46 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente present\'f3 un episodio de p\'e9rdida de consciencia de alrededor de 2 minutos.\f1 '#$D#$A'\par }'#$D#$A#$D#$A
Hasta aquí, todo bien, es el primer registro.
Corrida 2/3
slTexto.Text := '28-11-2011 12:49 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente se encuentra \b estabilizado\b0 y \b consciente\b0 .\f1 '#$D#$A'\par }'#$D#$A#$D#$A
redtResumenEventos.Text := '28-11-2011 10:46 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente present\'f3 un episodio de p\'e9rdida de consciencia de alrededor de 2 minutos.\f1 '#$D#$A'\par }'#$D#$A#$D#$A#$D#$A#$D#$A'28-11-2011 12:49 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente se encuentra \b estabilizado\b0 y \b consciente\b0 .\f1 '#$D#$A'\par }'#$D#$A#$D#$A#$D#$A#$D#$A
Corrida 3/3:
slTexto.Text := '28-11-2011 13:23 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 Se realiza el siguiente evento para probar \b la inserci\'f3n a la tabla\b0 , incorporando algunos \i formatos\i0 tendientes a testear la \ul capacidad \ulnone de la aplicaci\'f3n.\f1 '#$D#$A'\par '#$D#$A'\par }'#$D#$A#$D#$A
redtResumenEventos.Text := '28-11-2011 10:46 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente present\'f3 un episodio de p\'e9rdida de consciencia de alrededor de 2 minutos.\f1 '#$D#$A'\par }'#$D#$A#$D#$A#$D#$A#$D#$A'28-11-2011 12:49 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 El paciente se encuentra \b estabilizado\b0 y \b consciente\b0 .\f1 '#$D#$A'\par }'#$D#$A#$D#$A#$D#$A#$D#$A'28-11-2011 13:23 (FORTIZ) - '#$D#$A'{\rtf1\ansi\ansicpg1252\deff0\deflang2058{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\f0\fs16 Se realiza el siguiente evento para probar \b la inserci\'f3n a la tabla\b0 , incorporando algunos \i formatos\i0 tendientes a testear la \ul capacidad \ulnone de la aplicaci\'f3n.\f1 '#$D#$A'\par '#$D#$A'\par }'#$D#$A#$D#$A#$D#$A#$D#$A
Y el resultado, en la imagen.