Convertir la primera letra de una cadena en lazarus

[El_Chava]

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.

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.

[ecfisa]

Hola El_Chava.

Gracias por compartilo

Saludos

[El_Chava]

No hay que agradecer, para eso estamos para ayudar y regresar un poco de la ayuda que se recibe a través del foro. Saludos