Проблема с RichEdit

[nex777]

Доброго Вам времени суток!
Мне нужно написать программу-тест по французскому языку. У меня есть rtf файл (test.rtf), в которм разделенные занком @ находятся все вопросы, варианты ответов и правильные ответы выглядит гн примерно вот так:

1On sait que les produits et les services ______ aux clients par cette entreprises sont toujours de bonne qualité.
2 On vient de construire en Sibérie Orientale une grande centrale ______ dé l'energie électrique à la Sibérie et à l'Extrême Orient.
3 _______ les matières premières pour produire des articles de consommation courante notre firme a signé un contrat avec plusieurs entreprises.
@
en fournissant
fournissant
fournis
3 2 1
@
1 ______ les maisons neuves, on cherche a prèsentér tout ce qui presenté une valeur historique, culturelle ou architecturale.
2 Quelques étudiants de la Russie font leur stage dans une vaste usine _________ aux environs immédiats de Grenoble.
3 La socièté Radio-Energie __________ des machines spéciales pour l'électronique, a commencé ses fabrications en 1928.
@
construite
construisant
en construisant
3 1 2

Для реализации задачи мне нужно чтобы эти вопросы выводились на экран рандомно и без повторений. тест из себя представляет внешне окно с вопросом, под ним в столбик 3 варианта ответов, с окошками, в которые предлагается проставить номера предложений соответсвуюших ответам.
ПОЖАЛУЙСТА, подскажите, если можно поподробнее, как мне мне сделать рандомный вывод вопросов через RichEdit из rtf файла, без повторений.
СПАСИБО!!!

[pu4koff]

ну можно прочитать все в один ричэдит. и потом оттуда выделять вопросы и вставлять в другой ричэдит после @. т.е. находим n = Random(кол-во уже выведенных вопросов) и после энного символа @ вставляем новый вопрос

[nex777]

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

ну можно прочитать все в один ричэдит. и потом оттуда выделять вопросы и вставлять в другой ричэдит после @. т.е. находим n = Random(кол-во уже выведенных вопросов) и после энного символа @ вставляем новый вопрос

Не могли бы вы написать сам конкретный код, если вас не затруднит, просто я новичок в Delphi, а курсовую надо сдать уже послезавтра, и у меня никак не выходит ее закончить. А то к сессии не допустят. Заранее Благодарю!

[pu4koff]

Времени нет (у самого курсачи горят), так что тут прям написал:
RichEdit1 - исходные вопросы
RichEdit2 - результат
Только вот сомневаюсь что шрифты и все такое сохраница...

var
  i,n,k,j,cnt: integer;
begin
  richedit2.Clear;
  cnt := 0;  // Кол-во уже вставленных вопросов
  while (RichEdit1.Lines.Count > 0) do
  begin
    i := 0;
    while (i < RichEdit1.Lines.Count)and
           (RichEdit1.Lines[i]<>'@')do inc(i);
    n := Random(cnt);
    k := 0;
    j := 0;
    while (j < RichEdit2.Lines.Count)and(k < n)do
    begin
       if (RichEdit2.Lines[n]='@') then inc(k);
       inc(j);
    end;
    for k := 0 to i-1 do
    begin
       RichEdit2.Lines.Insert(n,RichEdit1.Lines[0]);
       RichEdit1.Lines.Delete(0);
       inc(n);
    end;
    RichEdit1.Lines.Delete(0);
    RichEdit2.Lines.Insert(k,'@');
    inc(cnt);
  end;
end;