Wenn ich den Beitrag von Christian richtig verstehe, meldet RegConnectRegistry Fehler mit Werten <> 0 und Du musst nur folgende Zeile ändern.
Delphi-Quellcode:
// if ( Result = 0 ) then
if ( Result <> 0 ) then
Du scheinst irgendwie den Computernamen und den Rückgabewert von RegConnectRegistry zu verwechseln.