Datenbankpath aus der Registry lesen!

[m-werk]

Hi, ich komm nicht dahinter:

So sieht mein Code jetzt aus:

Code:

procedure TDM.DataModuleCreate(Sender: TObject);
var REG:TRegistry;
    a:string;
begin
  REG:=Tregistry.create;
  try
    REG.RootKey := HKEY_CURRENT_USER;
    REG.Access  := KEY_READ;
    if REG.OpenKeyReadOnly('Software\Arius\SettingsDB') then
    begin
      try
        a:=REG.ReadString('DBPath');
        if not DirectoryExists(a) then
        begin
          MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
        end;
      except
        MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
      end;
    end
    else 
    begin
      MessageBox(self.Handle,PChar(SysErrorMessage(GetLastError)+#13#10+'Wert: '+GetLastError),'FEHLER',MB_ICONERROR or MB_OK);
    end;
  finally 
    FreeAndNil(REG);
  end; 
..............

Die beiden Meldungen mit dem Handel und dem Inkompatible Typen: 'String' und 'Cardinal' hab ich immer noch. Ich hab keine Lösung!