No recuerdo haber visto una función así en delphi. Prueba a ver si ésta da el ancho:
Código Delphi
[-]
function Capitalize(S: String): String;
var
I: Integer;
InBetween: Boolean;
begin
Result := '';
InBetween := true;
for I := 1 to Length(S) do
if S[i] = ' ' then
begin
Result := Result + S[i];
InBetween := true;
end
else if InBetween then
begin
Result := Result + UpCase(S[i]);
InBetween := false;
end
else
Result := Result + LowerCase(S[i]);
end;
// Saludos