[chachin140]

tengo que crear un memo introducir un texto y :
- Mostrar el numero de palabras que contiene ese texto pero que muestre las palabras que están dentro
de parenteis, corchetes, que tenga números, comillas, etc...
Yo hice uno pero no me toma las palabras que estan dentro de las comillas parentesis etc:

Código Delphi [-]
var
 linea:string;
 i,j,cont: integer;
begin
 cont:=0;
 for i := 0  to editor.lines.count-1 do
     begin
        linea:=editor.lines[i];
        for j := 1 to length (linea) do
                if linea [j] in [' '] then
                   if linea [j-1] in ['a'..'z'] then
                     cont:=cont+1;
                   if linea [j-1] in ['a'..'z'] then
                     cont:=cont+1;
      end;
 edit1.text:=inttostr(cont);
end;

ese hice yo pero no me cuentan las palabras que están dentro de paréntesis por ejemplo y no se que hace
me dijeron que hay una forma empleando el ascii con el char(ord(#10)) pero no se si es asi y como
se hace si me podrían ayudar les agradeceria mucho.