你如何使用Delphi获得当前安装的IE版本？

function GetIEVersion: String;
var
  Reg: TRegistry;
  Version: String;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('\Software\Microsoft\Internet Explorer') then
    begin
      Version := Reg.ReadString('Version');
      Result := 'Internet Explorer ' + Version;
    end
    else
      Result := 'Internet Explorer not found';
  finally
    Reg.Free;
  end;
end;