thisform.txtFIO.Value = AllFirstUpper(thisform.txtFIO.Value)
...

* первая буква слова заглавная
function FirstUpper
lparameters tcWord
     tcWord = alltrim(m.tcWord)
     return upper(substr(m.tcWord,  1 ,  1 )) + substr(m.tcWord,  2 )
endfunc

* все первые буквы слов заглавные
function AllFirstUpper
lparameters tcWords
     local lnCount, lnWord, lcResult
     local array laWords( 1 )
     tcWords = alltrim(m.tcWords)
     * превращаем спецсимволы в пробелы
     tcWords = chrtran(m.tcWords, chr( 9 )+chr( 13 )+chr( 10 ), [  ])
     * пробелы превращаем в перевод каретки
     tcWords = strtran(m.tcWords, [ ], chr( 13 )+chr( 10 ))
     lnCount = alines(laWords, m.tcWords, .t.)
     lcResult = ""
     for lnWord =  1  to m.lnCount
     	  if empty(laWords[m.lnWord])
     	  	loop
     	  endif
          if !empty(m.lcResult)
			lcResult = m.lcResult + ' '
          endif
          lcResult = m.lcResult + FirstUpper(laWords[m.lnWord])
     endfor
     return m.lcResult
endfunc

this.value=proper(this.value)
this.refresh()