Registry값을 읽어오면 되겠습니다.

<!--CodeS-->
(uses 에 Registry 포함)

function GetVersion(Key: string): string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('\Software\Microsoft\Internet Explorer', False);
    try
      Result := Reg.ReadString(Key);
    except
      Result := '';
    end;
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;
<!--CodeE-->

이런식의 함수가 되겠죠- 호출은 이런식으로..

<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('IE Version: ' + GetVersion('Version'));
end;
<!--CodeE-->