TEdit erste Buchstabe immer Groß schreiben...

[himitsu]

Delphi-Quellcode:

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