[ALexandr555]

Код:

begin
 setlength(m_, 1);
  N := 0;
  s := TStringList.Create;
  s.LoadFromFile('spam.txt');
ListBox1.Items.Add(' ');                                                                                                                                                  for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
       begin
        inc(N);
        ListBox1.Items.Add(inttostr(I));
        end;

вот тут добавить чтобы строки с единицы велись