Yo tampoco recuerdo una función que haga eso y también propongo una función, para el caso:
Código Delphi
[-]
function Capitalize(S: String): String;
var
ListaVar: TStringList;
Cadena : String;
i: Integer;
begin
ListaVar := TStringList.Create;
Result := '';
try
ExtractStrings([' '],[' '], PCHAR(S), ListaVar);
for I := 0 to ListaVar.Count - 1 do
begin
Cadena := ListaVar[i];
Cadena := LowerCase(Cadena);
Cadena[1] := UpCase(Cadena[1]);
Result := Result + Cadena + ' ';
end;
SetLength(Result, Length(Result)-1);
finally
ListaVar.Free;
end;
end;