[MegaMozg]

procedure TForm1.Button1Click(Sender: TObject);
begin
N := 0;
K := 0;
strA := Edit1.Text;
//strB := Edit2.Text;
//While N < Length(Edit1.Text) Do
for n:=1 to 500 do
begin
//N := N + 1;
strM:=Copy(Edit1.Text,N,1);
If strM = 'w' Then
begin
K:=K+1;
edit2.text:= edit2.text+'w- '+IntToStr(K);
end;
//q
If strM = 'q' Then
begin
K:=K+1;
edit2.text:= edit2.text+('q- '+IntToStr(K));
end;
end;
end;

Как убратьиз цикла?