var HKLMPfadDB, PfadDB: string;
const registPfad: string = '\Software\Eigene\Programmname';//Registrypfad
      defaultDB: string = 'D:\Mein\Pfad\Datei.mdb';
     
procedure TFRM_Main.FormCreate(Sender: TObject);
//####Registry Einträge lesen#############
//####Pfad zur Datenbank
begin
  regist:= TRegistry.Create;
  regist.RootKey:= HKEY_LOCAL_MACHINE;
  regist.OpenKeyReadOnly(registPfad+'\Datenbank');
  if length(regist.ReadString('Pfad_DB')) = 0
  then begin
          MessageDlg('HKEY_LOCAL_MACHINE Lesefehler! Die Default Einstellungen werden gesetzt.',mtError,[mbOk],0);
          PfadDB:= defaultDB;
       end
  else PfadDB:= regist.ReadString('Pfad_DB');
 ShowMessage(PfadDB);
regist.Free;
end;