1:
2:
3:
4:
5:
6:
7:
8:
9:

finalization
begin
  OleUninitializing := True;
  ComClassManagerVar.Free;
  SafeCallErrorProc := nil;
  DispCallByIDProc := nil;
  VarDispProc := nil;
  if NeedToUninitialize then CoUninitialize; // <-- Hier, na super
end;					

1:
2:
3:
4:
5:
6:
7:

Var
  Foo : IMyObject;

Begin
  Foo := MyServer.GetObject;
  Foo.Bar := 'Bla';
End; // <--- implizites Foo._Release und das Objekt wird freigegeben.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Var
  aTemplates : IdboObjects;
  clID, i : Integer;
  aXls : IdboObject;
  clCoil,
  aClass : IdboClass;

...
  With edTemplates.Properties.LookupItems do begin
    Clear;
    aTemplates := DM.cdb.dboObjects ['excelTemplate']; // Liste der EXCEL-Templates 
    AddObject('(use default)', nil);
    for i:=0 to aTemplates.Count - 1 do begin
      axls := aTemplates.Items [i];  // Das i.te Element 
      AddObject(aXLS.dboValue ['Description'].DisplayText, Pointer (aXLS.id));
      End;
    End;
  edTemplates.ItemIndex := 0;
end; // <-- hier sollte aTemplates freigegeben werden. Tut es aber nicht					

1:
2:
3:
4:
5:
6:
7:

Syntax

WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(
  HWND hwndOwner, 
  int nFolder, 
  LPITEMIDLIST* ppidl 
);					

1:
2:
3:
4:
5:
6:

ppidl
 Pointer to a pointer to an item identifier list specifying the folder's
location relative to the root of the namespace (the desktop). The calling
application is responsible for freeing this pointer with the
shell's IMalloc interface (see SHGetMalloc).in
http://msdn.microsoft.com/library/en-us/wceappservices5/html/wce50lrfIMallocIUnknown.asp					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

When to Implement

In general, you should not implement IMalloc, instead use the COM 
implementation, which is guaranteed to be thread-safe in managing task
memory.
::::::::::::::::::::::::
You get a pointer to the COM task allocator object's IMalloc through a call
to the CoGetMalloc function.
::::::::::::::::::::::::
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceappservices5/html/wce50lrfcogetmalloc.asp					

1:

aTemplates := DM.cdb.dboObjects ['excelTemplate'];					

1:
2:
3:
4:
5:
6:

Var
  aXLS : IdboObject;

...
  Pointer(aXLS.ID);
...