Bunun icin Edit'in OnKeyPress olayına aşağıdaki kodu ekleyin.

Kod:
with Sender as TEdit do if (SelStart = 0) or (Text[SelStart] = ' ') then if Key in ['a'..'z'] then Key := UpCase(Key);

__________________