Hola,
prueba esto
Código Delphi
[-]
var
s1,s2 : TStringList;
i : integer;
begin
s1 := TStringList.Create;
s1.LoadFromFile('c:\archivo.txt');
s2 := TStringList.Create;
s2.CommaText := s1.Text;
for i := 0 to s2.Count - 1 do ShowMessage(s2[i]);
end;
Lo hago de cabeza. La idea es cargar en commatext el archivo, y el stringlist ya separa los elementos automaticamente. Un saludo.