[v1s2222]

Загрузил в строку, и циклом проверяешь символы.

Код:

var
  s: TStringList;
  i: integer;
  N: Inetger;
begin
  N := 0;
  s := TStringList.Create;
  s.LoadFromFile(...);
{
  for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
        inc(N);
} 
// или
  for i:=1 to Length(s.Text) do
    if(s.Text[i] = '#') then
      inc(N);
///

Но я считаю надо искать не только кол-во, но и положение "#". Чтоб потом было легче копировать.
Как-то так:

Код:

type m=record
  x, y: integer;

var
  m_: array of m;
  countN: integer;
begin
  setlength(m_, 1);
... // и дальше все тоже самое,только с учетом, пр нахождении знака "#" надо не только увеличивать их кол-во, но и записывать его местоположение в тексте.