В свое время была понаписана масса функций, некоторые из которых и поныне используются в моих приложений. Буду постепенно дополнять.

1. Разбор имени переменной типа UsedOnlyInDesignTime на составные части.
   Написано давно, используется где-то в мультиязычных приложениях.

Lparameters lpcString2Parse
Local lcResultString,lnStartPos,lnEndPos,lni
lcResultString=''
lnStartPos=0
lnEndPos=1
For lni=1 To Len(lpcString2Parse)
   If Between(Asc(Substr(lpcString2Parse,lni,1)),Asc("A"),Asc("A")+26)
      If lnStartPos=0
         lnStartPos=lni
      Endif
      If lni>lnStartPos
         lnEndPos=lni
      Endif
      If lnStartPos!=0 And lnEndPos>1
         lcResultString=;
            lcResultString+;
            Substr(lpcString2Parse,lnStartPos,lnEndPos-lnStartPos)+;
            Space(1)
         lnStartPos=lnEndPos
         lnEndPos=lnEndPos+1
      Endif
   Endif
Endfor
lcResultString=;
   lcResultString+;
   Substr(lpcString2Parse,lnStartPos)
Return lcResultString