[musicFUZZ]

мемо1
едит1
баттон1
лэйбл1

procedure TForm1.Button1Click(Sender: TObject);
var
n,m,i:integer;
Ss,Aa:string;
begin
n:=0;
Aa:=Edit1.Text;
Ss:=Memo1.Text;
for i:=1 to length(Ss) do
begin
if Ss[i]=Aa then
begin
m:=n+1;
ShowMessage('Da');
Label1.Caption:=inttostr(m);
end;
end;
end;
end.

цель себе ставил, что бы по введённому тексту в едит1, находило в мемо1 его, и в лэйбле1 показывало количество найденного, такого, текста.
но находит только, если в едите1 писать один симвл,и что-то не считает количество. Просто шоумесендж выскакивает такое количество раз, соклько встречается, введённый симвл в едит1, в тексте мемо1.

как-то по другому делать нужно?! ( :