[mazuada]

Ya lo he resuelto. Me acabo de dar cuenta del detalle.
es:
s := Copy(RichEditEntity.Text, Pos1, Pos12-Pos1);
en lugar de:
s := Copy(RichEditEntity.Text, Pos1, Pos12);
Saludos y que tengan un buen día.