[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;