Вывод текстового файла в Stringgrid

[KingWaR56]

Доброго времени суток!
Задача такова. В форме я записываю данные которые сохраняются в текстовый файл и имена которых отображаются в Filelistbox. Хочу сделать чтобы при выборе файла из Filelistbox он открывался в стринггрид. Но что то не получается. ( В делфи я новичок). Вот ссылка на исходник для наглядности.
http://zalil.ru/30926056

[KingWaR56]

Вот нашёл процедуру вывода

AssignFile(ff, Form3.fllst1.FileName);
 Reset(ff);
 try
  While not Eof(ff) Do
   Begin
    ReadLn(ff, St);
    With Form9.stringGrid1 Do
     Begin
      rowCount:=rowCount + 1;
      rows[rowCount -12].Text:=StringReplace(St, #9, #13#10, [rfReplaceAll]);
     End; {With}
   End; {While}
 finally
  CloseFile(ff);
 end;
 With Form9.stringGrid1 Do IF RowCount > 1 then FixedRows:=1;

но есть косяк, каждая следующий файл открывается следом за предыдущим, а еси ставлю очистку таблицы, то вообще не открывается(. Помогите кто-нибудь.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.