uses Registry;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Reg:TRegistry;
sVersion:String;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\Version Vector',True) then
begin
sVersion:=Reg.ReadString('IE');
ShowMessage(sVersion);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;