如何设置Form上面的TEdit所有的输入法一致

 procedure   TBaseDataFrm.FormCreate(Sender:   TObject);  
  var  
      I:integer;  
  begin  
      inherited;  
      for   i:=0   to   Self.ComponentCount-1   do  
      begin  
          if   Self.Components[i]   is   TDBEdit   THEN  
          begin  
              (Self.Components[i]   as   TDBEdit).imename:=   '';  
              (Self.Components[i]   as   TDBEdit).imemode:=   imDontCare;  
          end;  
          if   Self.Components[i]   is   TDBGrid   THEN  
          begin  
              (Self.Components[i]   as   TDBGrid).imename:=   '';  
              (Self.Components[i]   as   TDBGrid).imemode:=   imDontCare;  
          end;  
      end;  
  end;