Первая буква в DBedit чтоб делалась заглавную при вводе данных

[Roman123654789]

Как сделать, чтобы при вводе в dbedit1 первая буква становилась за главную, если пользователь ввел с маленькой, по английскому алфавиту. Спасибо за помощь.

[Stilet]

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
  with TDBEdit(Sender) do
   Text:=UpperCase(Copy(Text,1,1))+Copy(Text,2,Length(Text));
end;

Годится?

[Roman123654789]

Сообщение от Stilet

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
  with TDBEdit(Sender) do
   Text:=UpperCase(Copy(Text,1,1))+Copy(Text,2,Length(Text));
end;

Годится?

Все буквы теперь вводятся с большой и задом наперед)

[Stilet]

Тогда подшаманим:

var i:integer;
begin
  with TDBEdit(Sender) do begin
   i:=SelStart;
   Text:=ansiUpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
   SelLength:=0;
   SelStart:=i;
  end;
end;

[Roman123654789]

Спасибо ты меня уже не первый раз выручаешь)

[Stilet]

Пожалуйста )