[deltas]

Все как-то сложно, я обычно делаю так - загружаю файл в листбокс а потом :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a:String; s:integer;
begin
 S:=Random(ListBox1.Items.Count-1);
 A:=Listbox1.Items.Strings[s];
 if a='#' then A:=Listbox1.Items.Strings[s+1];
 Label1.Caption:=A;
end;