学步园

uses TypInfo

procedure SetImeA(AOwner:TForm);
var
  i:Integer;
begin
  for i := 0 to AOwner.ComponentCount - 1 do
  begin
    if GetPropInfo(AOwner.Components[i],'ImeName')<>nil then
    begin
      SetPropValue(AOwner.Components[i],'ImeName',
        readinifile(getinifile,'ime','imename',''));
    end;
  end;   
end;