tsdima, спасибо.

Кстати я так и сделал на сей момент. Но может оказаться что имён может быть много и case соответствено код смешной не покажется .
Я думал что можно допустим как то функцию VarType(varname) применить или обьект какой нибудь для этих целей.

пока писал мысля пришла попробовать связочку функций Replace(CStr) и VarType(varname)

tsdima, к сожелению так и не понял что в коде который Вы выложили куда его приткнуть, может можно его как то целиком получить если коменты к точкам работают