输入法切换的问题

procedure TForm1.FormShow(Sender: TObject);
var
  i:integer;
begin
  For i:=0 to ComponentCount-1 do
    begin
       if self.Components[i] is TEdit then
          begin
           (Components[i] as TEdit).ImeMode:=imDontCare;
           (Components[i] as TEdit).ImeName:='';
          end;
    end;
end;