Como convertir a Mayusculas

[Velia]

Hola a todos , quisiera saber que función me permite convertir el primer caracter de cada palabra en mayuscula.
Gracias
Y Saludos

[dec]

Hola,

Una adaptación de la función "Capitalize" que puede encontrarse aquí:

Código Delphi [-]
function Capitalizar(const cadena: string): string;
 var
   s: string;
   i: integer;
   b: boolean;
 begin
   s := '';
   b := true;
   for i := 1 to Length(cadena) do
   begin
     if b then
       s := s + AnsiUpperCase(cadena[i])
     else
       s := s + cadena[i];
     b := (cadena[i] = ' ');
   end;
   Result := s;
 end;

[Sotrono]

Hola. No estoy con Delphi en este momento, la funcion creo que se llama UpperCase.
Para convertir el primer caracter a mayuscula tendrias que hacer algo asi:

Código Delphi [-]
s[1]:= UpperCase(s[1]),

Saludos..