Dann schaue dir mal das hier im Anhang an:
Delphi-Quellcode:
var
p : TSecurityImpersonation;
sl : TSTringlist;
begin
p := TSecuritonation.Create();
AutoPointer.Wrap(p);
sl := TStringList.Create();
AutoPointer.Wrap(sl);
// ...
end;//p wird hier automatisch gelöscht, sl auch
Wenn du allerdings ein ISecurityImpersonation hast (also en Interface mit den Methoden, die du brauchst), dann deklariere die lokale Variable einfach als da Interface und alles passiert von alleine.