Случайное разбиение списка на множесво маленьких списков

[eXa]

Привет, мне нужно составить из одного списка(TStringList) много маленьких списков, вот выкладываю код, где то тут ошибка, никак не могу разобраться, почему вылетает 'List index out of bounds(0)' тоесть пустой список...

procedure TMainForm.btnCreateObjectClick(Sender: TObject);
var
TH:array[0..100] of TThread;
LsA, LsB, LsC: TStringList;
A, B, RAND: integer;
List, ILo, IPa, StringS: string;
begin
 LsA:= TStringList.Create;
 LsB:= TStringList.Create;
 LsC:= TStringList.Create;
 LsA.LoadFromFile('.txt'); // загружаю список из TXT в LsA  
 LsB.Assign(Spisok.Lines); //загружаю список из TMemo в LsB
  for A:= 0 to LsA.Count-1 do
   begin
    List:= LsA.Strings[A];
    ILo:= Copy(List,1, Pos (':', List) - 1);// логин
    IPa:= Copy(List,Pos (':', List) + 1, 255);//пароль
     for B:= 0 to 3 do
      begin
       RAND:= random(LsB.Count);// случайный индекс в диапазоне LsB.Count
       StringS:= LsB.Strings[Rand]; 
       LsC.Add(StringS); // добавляю во 2ой список строку
       LsB.Delete(Rand);// удоляю из 1ого списка строку
       ILog.Lines.Add(StringS) // Лог...
      end;
       TH[a]:= TThread.Create; // создаю экземпляры
       TH[a].Connect(ILo, IPa); // передаю ILO и IPA
       TH[a].Login(LsC.GetText);  // передаю 2ой список
 end;
end;

Вообщем что он делает: создаются 3 списка, 1 список - логин и пароль, 2 список дополнительных данных, 3 список - разбитый список дополнительных данных, тоесть для каждова экземпляра берется один логин, пароль и список разбитых дополнительных данных

[Alex21]

Чтоб действительно получать случайные индексы добавь randomize();

[Stilet]

И еще попробуй : RAND:= random(LsB.Count-1);
И кста, а собсно на какой строке вылетает ошибка?

[Alex21]

Сообщение от Stilet

И еще попробуй : RAND:= random(LsB.Count-1);
И кста, а собсно на какой строке вылетает ошибка?

Значение LsB.Count в Random и так не включается (по определению), так, что в вашем случае последний элемент не учитывается, а жаль.

p.s.: RAND:= random(LsB.Count);

[Stilet]

Нда ет я погорячился насчет Рандома. Ну тогда нужно потрассировать и выявить ошибку на какой сроке

[Alex21]

Сообщение от eXa

LsA.LoadFromFile('.txt'); // загружаю список из TXT в LsA [/code]

Странный у вас файл .txt. Может у него имя есть, и путь?