uses Registry; 
 
function SpurenBeseitigen(loeschen: boolean): boolean; 
var 
  Reg: TRegistry; 
  hlp: string; 
  pruf1, pruf2: boolean; 
begin 
  pruf1 := false; 
  pruf2 := false; 
  Reg := TRegistry.create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    if Reg.OpenKey 
      ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer', True) 
      then begin 
      Reg.WriteInteger('ClearRecentDocsOnexit', ord(loeschen)); 
      Reg.CloseKey; 
      pruf1 := true; 
    end; 
    if Reg.OpenKey 
      ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete', 
      True) 
      then begin 
      if loeschen then hlp := 'NO' else hlp := 'YES'; 
      Reg.WriteString('AutoSuggest', hlp); 
      pruf2 := true; 
    end; 
  finally 
    Reg.CloseKey; 
    Reg.Free; 
  end; 
  result := pruf1 and pruf2; 
end; 
 
// Beispielaufruf:
// True = zukünftig löschen / False = zukünftig nicht mehr löschen 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not spurenbeseitigen(True) 
    then showmessage('Fehler'); 
end;