[M.A.D.M.A.N.]

Код:

for i := 0 to memo.lines.count - 1 do
  if pos('TButton', memo.lines[i]) <> 0 then
    inc(counter);