[ALexandr555]

Код:

for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
       begin
        m_[N].X := i;
        m_[N].Y := k;
        inc(N);
        end;

значт так как я понял