ayuda con numeros de palabras
 

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.

pero ahi te falta mas condiciones
solo estas contando las palabras que estan separadas por el espacio
no veo que hagas mencion de los parentesis y/o corchetes

claro eso mismo necesito saber como los mensiono a los signos o codigos ascii