Delphi - Ayuda.

Señores ustedes son los expertos....toy comenzando delphi intento contar consonantes en una cadena,,,,,,,pero al pareceer el contador no me incrementa... va el codigo

procedure TForm1.BitBtn1Click(Sender: TObject);

var tamcad,I,J,K,Posic,Cont,cap: integer;

Porc: real;
const
VOCALES = 'AEIOU';
CONSONANTES = 'BCDFGHJKLMNÑPQRSTVWXYZ';

begin
Cont:=0;
for I := 1 to length(edit1.Text) do
Posic := Pos(AnsiUpperCase(edit1.Text[I]),CONSONANTES);
if Posic > 0 then
inc(Cont); {es igual a Cont:=Cont+1}


edit2.Text := inttostr(cap);


end;

Cont lo tienes fuera del bucle for y debe ir dentro

Así (te añado el ShowMessage para que veas que funciona.

for I := 1 to length(edit1.Text) do
begin
Posic := Pos(AnsiUpperCase(edit1.Text[I]),CONSONANTES);
if Posic > 0 then
inc(Cont);
end;
ShowMessage(IntToStr(Cont));

Todo

procedure TForm1.BitBtn1Click(Sender: TObject);

var tamcad,I,J,K,Posic,Cont,cap: integer;

Porc: real;
const
VOCALES = 'AEIOU';
CONSONANTES = 'BCDFGHJKLMNÑPQRSTVWXYZ';

begin
Cont:=0;
for I := 1 to length(edit1.Text) do
begin
Posic := Pos(AnsiUpperCase(edit1.Text[I]),CONSONANTES);
if Posic > 0 then
inc(Cont);
end;
ShowMessage(IntToStr(Cont));

edit2.Text := inttostr(cap);

end;

Señorita EVA...esta si era una gran bobada....Graciassssssss de veras...pense que por la cascada el lo entenderia...pero veo ke todo este tipo de sentencias necesitan siempre begin.... end y dentro de ella las sentencias...otra ves ARIGATO....

Ya me anda de full el algoritmo...cualquier cosa vuelvo...