La nota de Delphi escribe y lee texto en segmentos, delimitador de texto: "#"
//Leer intente
var
sl ：TStringList
comenzar
sl ：= TStringList.Create
sl.LoadFromFile('ubicación del texto');
sl.Delimiter:= '#';
sl.DelimitedText:= sl.Text ;
var
sl ：TStringList
comenzar
sl ：= TStringList.Create
sl.LoadFromFile('ubicación del texto');
sl.Delimiter:= '#';
sl.DelimitedText:= sl.Text ;