[jachguate]

Te dejo esta función, que no será optima pero hace el trabajo:

Código Delphi [-]
  Function jachStrProperCase(s : String) : String;

  Var
    i : Integer;
    up : Boolean;

  Begin
    result := '';
    up := True;
    for i := 1 to length(s) do
    Begin
      if up Then
        result := result + AnsiUpperCase(s[i])
      else
        result := Result + AnsiLowerCase(s[i]);
      up := s[i] = ' ';
      if up and (length(s) >= (i + 2)) and (s[i+2] = ' ') Then
        // En el caso especial de palabras de una letra, se dejan en minúscula!
        up := false;
    end;
  end;

Hasta luego.