Foros Club Delphi - Convertir la primera letra de una cadena en lazarus

Hola amigos más que duda les traigo un pequeño código que me ayudo a convertir la primera letra de una cadena en mayúscula. Todo se origino por que utilizo una plantilla en word en donde dentro de las variables que se envian a dicho documento se tienen que poner el nombre completo de una persona. Por la importancia del documento se debe poner primera letra en mayúscula del nombre y los apellidos la. Bueno les dejo el código.

Código:

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.