Реакция на Shift

[a_n_n_a]

Здравствуйте, у меня на Edit'е, чтобы первое слово всегда писалось с большой буквы стоит код:

procedure TForm2.Edit7KeyPress(Sender: TObject; var Key: Char);  {автоматом заглавная буква}
var s: String;
begin
    s:= Key;
    if Edit7.SelStart=0 then
      s:=AnsiUpperCase(s)
    else
      s:=AnsiLowerCase(s);
     Key:=s[1];
end;

Остальные слова в Edit'е могут быть, как с большой, так и с маленькой. Только моя процедура не дает возможности написать последующие слова с большой. Подскажите, как добавить реакцию на Shift?

[Пепел Феникса]

уберите ветку Else

[a_n_n_a]

Спасибо, получилось)))

[Serge_Bliznykov]

кстати, если уж так надо, чтобы Первое слово обязательно было с Большой буквы, я бы не мучал пользователя, а сам, в процедуре, ВСЕГДА делал первую букву в Edit большой
и пусть пишет, что хочет
(в вашем коде достаточно выкинуть проверку на то, что SelStart = 0 и сделать upper только первой букве текста )


проверьте, например, что будет, если в Ваш Edit7 текст скопировать по CTRL-V

А так, по сути решения возникшей проблемы, Пепел Феникса прав - ветка ELSE не даёт набирать большие буквы, если курсор не в начале строки..