Internet Browser Cookies löschen

[derseitzer]

Guten Tag,

Ich programmiere gerade folgendes :
Ich bin immer sehr faul und speichere meine Passwörter auf meinen Internetseiten ab, sodass ich die Passwörter nicht jedes mal wieder eingeben muss.
Durch einen Start eines Programmes möchte ich, dass sich diese gespeicherten Passwörter wieder zurücksetzen und sich das Programm dann beendet .
Warum ich das mache: Falls ich meinen Computer verlasse könnte ich somit verhindern, dass andere sich in meine Accounts einloggen.

Wenn ich mich in facebook einlogge und nun die cookies lösche (im browser), dann fragt fb wieder mein passwort ab, so wie ich es möchte.
Nun will ich das ganze in delphi programmiert haben.
Das hier hat leider nicht funktioniert:
1.

Delphi-Quellcode:

procedure TForm1.DeleteIECache;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
  if hCacheDir <> 0 then
  begin
    repeat
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      FreeMem(lpEntryInfo, dwEntrySize);
      dwEntrySize := 0;
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
      GetMem(lpEntryInfo, dwEntrySize);
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
  end;
  FreeMem(lpEntryInfo, dwEntrySize);
  FindCloseUrlCache(hCacheDir);
end;

Hat jemand eine Alternative die funktioniert? Achtung: Löschen vom Cache setzt Passwörter nicht zurück, nur löschen der Cookies:/
Danke für eure Hilfe