我想让输入的字母自动转换为大写 就写了这条语句 dzgbhEdit.Text:=uppercase(dzgbhEdit.Text);

但是写上之后运行发现 我在输入第一个字母后 光标会自动跑到字母的前面 而不是留在字母后面 这样 如果一次输入多个字母的话 就要在输入第一个字母后人为的把光标挪到后面才能继续如入 请教大家 还需要改什么地方才能正常输入呢 谢谢 

另附代码 请指教 谢谢 

begin
dzgbhEdit.Text:=uppercase(dzgbhEdit.Text);
   zhigongQuery.close;
   zhigongQuery.Params.Clear;
   zhigongQuery.sql.clear;
   zhigongQuery.Params.createparam(ftstring,'zgbh',ptinput).asstring:=dzgbhedit.Text;
   zhigongQuery.sql.add('select * from zhigong where zgbh=:zgbh');
   //zhigongQuery.ExecSQL;
   zhigongQuery.open;
   if zhigongQuery.RecordCount=1 then
     begin
          dzgxmedit.Text:=zhigongQueryzgxm.value;
          dgdbhedit.Text:=zhigongQuerygdbh.value;
          dgdmcedit.Text:=zhigongQuerygdmc.value;
          dbmbhedit.Text:=zhigongQuerybmbh.value;
          dbmmcedit.Text:=zhigongQuerybmmc.value;
          dgzbhedit.Text:=zhigongQuerygzbh.value;
          dgzmcedit.Text:=zhigongQuerygzmc.value;
          dsfzcComboBox.Text:=zhigongQueryzgzc.value;
          dsfffComboBox.Text:=zhigongQueryzgfa.value;
          dzgrcDateTimePicker.Date:=zhigongQueryrcrq.Value;
          djqksDateTimePicker.Date:=zhigongQueryjqks.value;
          djqjsDateTimePicker.Date:=zhigongQueryjqjs.value;
          dxggzDateTimePicker.Date:=zhigongQueryxggzrq.value;
          dzgqkComboBox.Text:=zhigongQueryzgqk.value;
          dzgxbComboBox.Text:=zhigongQueryzgxb.value;
     
          Button3.SetFocus;
          Button3.Focused;
     end
   else
     begin
          //dzgbhedit.Text:='';
          dzgxmedit.Text:='';
          dgdbhedit.Text:='';
          dgdmcedit.Text:='';
          dbmbhedit.Text:='';
          dbmmcedit.Text:='';
          dgzbhedit.Text:='';
          dgzmcedit.Text:='';
          dsfzcComboBox.Text:='';
          dsfffComboBox.Text:='';
          dzgrcDateTimePicker.Date:=nianyue(now);
          djqksDateTimePicker.Date:=nianyue(now);
          djqjsDateTimePicker.Date:=nianyue(now);
          dxggzDateTimePicker.Date:=nianyue(now);
          dzgqkComboBox.Text:='';
          dzgxbComboBox.Text:='';     
     end;
   zhigongQuery.close;
end;