Gracias bro..con eso lo voy a mejorar el programa.
				
			Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúByte CanPalabras(AnsiString x)
{Byte contador;
  if (x.Length()< 2) {//Caso Base
	contador= x.Length();
 }else{//Caso General
	char letra = x[x.Length()];
	x.Delete(x.Length(),1);
	char penul = x[x.Length()];
	contador = CanPalabras(x);
	if (letra != ' ' && penul == ' ') {
		contador++;
	}
}
 return contador;
Byte CanPalabras(AnsiString x)
{Byte c;
  if (x == "") {//Caso Base
	c = 0;
 }else{//Caso General
	AnsiString letra = x[x.Length()];
	x.Delete(x.Length(),1);
	c = CanPalabras(x);
	if (letra == " ") {
		c++;
	}
 }
 return c;
}
				
void Mayor_At_Last(Cardinal &x)
{byte s;
if(x<10){//Caso Base
	s = x;
}else{//Caso General
	s = x % 10;
	x = x / 10;
	Mayor_At_Last(x);//Mayor(358267)-> 8
	if (s  > x){//esta en si es la que alla el mayor
		x = s;
	}
}
}