Fórum Letras Maiusculas...Minusculas... #205227

Estou com um problema....tenho um edit que coloca todas as primeiras letras de cada palavra em maiusculas, mássssss tenho um problema..Por exemplo ´´Maria Das Graças´´´ o ´´´Das´´´ também ficou maiuscula, e isso ficou bastante feio... será que dá para resolver?///hehehehe :lol:

Aki segue o código se alguém poder ajudar...

procedure T_FormContas.Edit1Change(Sender: TObject);
var
OldStart : Integer;
x : Integer;
begin
With ComboBox1 do
if Text <> ´´ then
begin
OnChange := nil;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
for x := 1 to Length(Text) do
begin
if Copy(Text,x,1) = ´ ´ then
Text := copy(text,1,x) + UpperCase(Copy(Text,x+1,1)) + copy(text,x+2,Length(Text))
end;
SelStart := OldStart;
OnChange := ComboBox1Change;
end;
end;