Cлучайный массив текста из txt

[g00dhash]

Ребя хелп
Нужно выводить текст который в разделителях # из txt файла случайным образом
Пример содержания txt файла

#
текст1
текст1
текст1
#
текст2
текст2
#
....
.....
....
....
#

пробовал так.. хз короче) посоветуйте от куда капать начинать)

procedure TForm1.Button1Click(Sender: TObject);
var
str, sRandom:string;
s: TStrings;
begin
  Randomize;
  s := TStringList.Create();
  s.LoadFromFile('file.txt');
  sRandom := S.Strings[Random(S.Count)];
  str:=copy(sRandom,pos('#', sRandom) +1 , pos('#', sRandom)  - pos('#', text) -1);
  memo1.Lines.Add(str);
end;

[spamer]

Если правильно понял, то как-то...вроде работает:

procedure TForm1.Button3Click(Sender: TObject);
var
  str: TStringList;
  mas: array of Integer;
  i, _begin, _end: Integer;
begin
  str := TStringList.Create;
  try
    str.LoadFromFile('olo.txt');
    SetLength(mas, 1);
    for i := 0 to str.Count - 1 do
    begin
      if str.Strings[i] = '#' then
      begin
        mas[Length(mas) - 1] := i;
        SetLength(mas, Length(mas) + 1);
      end;
    end;
    SetLength(mas, Length(mas) - 1);

  Randomize;
  i := Random(High(mas));
  _begin := mas[i] + 1;
  _end := mas[i + 1] - 1;

  for i := _begin to _end do
    Memo1.Lines.Add(str.Strings[i]);

  Memo1.Lines.Add('                ');
  finally
    FreeAndNil(str);
  end;
end;

Структура файла для теста:

#
текст11
текст12
текст13
#
текст21
текст22
#
текст31
текст32
текст33
#
текст41
текст42
#
текст51
текст52
текст53
#

[g00dhash]

spamer, спасибо все работает) +