Convertir un cadena donde cada Palabra Primera con mayuscula

[roman]

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