Каждое новое слово в Edit c большой буквы

[mkazakov]

Хочу сделать что бы при наборе каждое новое слово было с большой буквы

Делаю так, но оно глючит.

Код: Выделить всё

procedure TForm1.Edit1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
      with Sender as TEdit do
    if (SelStart = 0) or
      (Text[SelStart] = ' ') then
          if (UTF8ToSys(UTF8Key)[1] in [#224..#255, #97..#122]) then
             UTF8Key:=UTF8UpperCase(UTF8Key);
end; 

Можете поправить? или может кто знает лучше способ

[dunin]