[AND_REY]

Не знаю, у меня вышеприведенный код работает в разных программах,
(но не одновременно).

Так пробовали?

Код:

Var
 SL: TStringList;
// Запись
begin
 SL:= TStringList.Create;
 SL.Add('567fgytfyfuyup8y76');
 SL.Add('df6f6fy6u');
 SL.SaveToFile('C:\2.txt');
 SL.Free;
end;
// Чтение
begin
 SL:= TStringList.Create;
 SL.LoadFromFile('C:\2.txt');
 N:= SL.Count;    // к-во елементов
 S:= SL.Strings[i];
 SL.Free;
end;