problema para leer txt

[[coso]]

hola, no te va a hacer falta saber las posiciones

Código Delphi [-]
var
   sl : TStringList;
begin
   sl := TstringList.Create;
   sl.LoadFromFile(nombre_fichero);
   sl.CommaText := stringreplace(sl.text,';',',',[rfReplaceAll,rfIgnorecase]);
   showmessage(sl[0]);
   showmessage(sl[2]);
   sl.free;
end;

hay bastantes mas ejemplos por aqui el foro saludos