регистр букв в Edit

[Sciv]

Предлагаю такое решение (проверил, вроде работает):

В переменных класса объявляем:

public
{ Public declarations }
ShiftState: boolean;

Добавляем процедуру:

procedure TForm1.Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShiftState:=Shift=[ssShift];
end;

и меняем условие в исходной процедуре KeyPress:

s:= Key;
if (Edit7.SelStart=0) or ShiftState then
s:=AnsiUpperCase(s)
else
s:=AnsiLowerCase(s);
Key:=s[1];

[Kix.IV]

Первое, что пришло в голову:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if edit1.SelStart=1 then                 begin
 Edit1.text := AnsiUpperCase(Edit1.text[1]) + Copy(Edit1.text, 2, MaxInt) ;
 edit1.SelStart:=1;
 end
end;

[Vigi]

Ну вот как вариант до кучи. На форму таймер с интервалом 10

procedure TForm2.tmr1Timer(Sender: TObject);
begin
  if Copy(edt1.Text,1,1)<> AnsiUpperCase(Copy(edt1.Text,1,1)) then
   begin
     edt1.Text := AnsiUpperCase(edt1.Text);
     Edt1.SetFocus;
     Edt1.SelLength:=0;
     Edt1.SelStart:=Length(Edt1.Text);
    end;
end;