Hola...
Un ejemplo usando solo un
TStringList:
Código Delphi
[-]
Strings := TStringList.Create;
try
Strings.LoadFormFile('archivo.txt');
Strings.DelimitedText := Strings.Text;
Strings.Delimiter := '|';
Strings.StrictDelimiter:= True;
stg.cells[i,j]:=Strings[0]
finally
Strings.Free
end
Esto no lo he probado, pero te debería funcionar bien.
Saludos...