کدی برای بزرگ کردن حرف اول در ادیت باکس ها

procedure TForm1.DBEdit1Change(Sender: TObject);
var

Cursor : Integer;
begin
if DBEdit1.Text <> '' then
begin
Cursor:=DBEdit1.SelStart;
DBEdit1.Text := UpperCase(Copy(DBEdit1.Text,1,1)) +
LowerCase(Copy(DBEdit1.Text,2,Length(DBEdit1.Text)));
DBEdit1.SelStart := Cursor;
end;
end;