TEdit erste Buchstabe immer Groß schreiben...

[DeddyH]

Jepp, das dürfte schneller sein. Aber noch ein Vorschlag:

Delphi-Quellcode:

function CapitalizeWords(const S: String; FirstOnly: Boolean = false): String;
const
  Blanks = [#9, #10, #13, #32];
var
  i: Integer;
  U: String;
begin
  U := AnsiUpperCase(S);
  if FirstOnly then
    Result := AnsiLowerCase(S)
  else
    Result := S;
  for i := 1 to Length(Result) do
    if (i = 1) or (Result[i - 1] in Blanks) then
      Result[i] := U[i];
end;

So lässt sich steuern, ob ausschließlich der jeweils erste Buchstabe groß geschrieben werden soll.