1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function ReadFromRegistry: String;
var                                                                             
  Registry : TRegistry;                                                  
begin                                                                          
  Registry := TRegistry.Create;             
  Registry.RootKey := HKEY_CURRENT_USER;                       
  if Registry.KeyExists('\Software\borland\IP Team\TwinCAM\72662') = true then begin       
    if Registry.OpenKey('\Software\borland\IP Team\TwinCAM\72662', true) = true then               
      result := Registry.ReadString('TCPath')  
    else                                                 
      result := 'Keinen Eintrag gefunden';       
    end                                                  
  else                                                    
    result := 'Den Schlüssel nicht gefunden';          
    Registry.Free;                                    
end;					

1:

Label1.Caption := ReadFromRegistry;