Nombres válidos para tablas paradox (Propiedad TableName)

[aguml]

Muy interesante tu código y no sabía que un nombre de tabla no podia empezar con un número. ¿eso es solo en paradox?
Por cierto no sabía de la existencia de StrPos, yo siempre tiraba de strstr en C y en builder de AnsiString().Pos. Me gusta mucho el modo en que compruebas si el caracter es uno de los no deseados ya que yo hubiese tirado de muuuchos if. Nunca se me pasó por la cabeza esa opcion.
Otra cosa, ¿por qué haces esto en vez de usar directamente el nombre del componente?
TEdit *ed = static_cast<TEdit*>(Sender);
if((ed->SelStart+ed->SelLength == 0...

en vez de:
if((Edit1->SelStart+Edit1->SelLength == 0...

Le vería sentido para una funcion a la cual le pasas el puntero pero en un evento del componente donde puedes usar su nombre ya que no es algo que se vaya a usar en varios componentes diferentes...