сначала нада открыть RegOpenKeyEx а потом RegQueryValueEx
------------ Дoбавленo в 16.59:
подскажи тогда

function ReadValue(var _Data,val:TData):integer;

вот сюда как передать нужные параметры
------------ Дoбавленo в 17.00:
точнее как заменить их в самой функции
------------ Дoбавленo в 17.01:
и что имено передается в этих параметрах