Wie wäre es in der Art
Delphi-Quellcode:
Function CreateCorrectName(Const MyName: String): String;
Var i: Integer;
Begin
Result := AnsiLowerCase(Trim(MyName));
If Result = '' Then Exit;
i := 1;
While i > 0 do Begin
Result[i] := UpperCase(Result[i]);
i := PosEx(' ', Result, i);
If i <> 0 Then Inc(i);
End;
End;
PS: Wer hat behauptet, daß das erste Zeichen nicht auch schon ein Leerzeichen ist und ob überhaupt was eingegeben wurde?