pascal
procedure TFrmFormulario.btnConvertirClick(Sender: TObject); Var cadena:string; begin cadena:='lic. nombre apeliidopaterno apellidomaterno'; Showmessage('La cadena es '+ AnsiProperCase(cadena,[#032,#046])); {lo que se encuentra entre [], son lo caracteres que serviran como delimitadores, en este caso se uso el caracter space y el "."} end;
El resultado quedaría así " La cadena es Lic. Nombre Apeliidopaterno Apellidomaterno".
Se utilza la función AnsiProperCase que se encuentra en la unidad "strutils". Bueno espero que les sirva este pequeño código.