Delphi World - Перевод в верхний регистр первого вводимого символа

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Перевод в верхний регистр первого вводимого символа

Сокращенное название Международной Ассоциации Старых Дев - "Интер-НЕТ!"

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (DBEdit1.SelStart = 0) then
    Key := upCase(Key);
end;

Или для Edit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TEdit do
    if (Text = '') or (Text[SelStart] = ' ')
      or (SelLength = Length(Text)) then
        if Key in ['a'..'z'] then
          Key := UpCase(Key);
end;