procedure TForm1.Button1Click(Sender: TObject);
var
  aObj:TComponent;
begin
  aObj:=TComponent.Create(Self);
  try
    ....
  finally
    aObj.free;
    aObj:=nil;
  end;
end;

//以下函數參考Delphi源碼
procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;    同於
begin
  Obj.Free;
  Obj:=nil;
end;    範例一
procedure Test
var
  Obj:TObject;
begin
  Obj:=TObject.Create;
  //註Obj是指向系統建立OBJECT的一個指標
  Obj.Free;
  Obj:=nil; {在私用程序上，程序執行完便釋放了，其他的程序未參考OBJ所
             以這行可以省掉!!}
end;    範例二
var
  Obj:TObject;    procedure Test;
begin
  Obj:=TObject.Create; 
  //註Obj是指向系統建立OBJECT的一個指標
  Obj.Free;
  Obj:=nil; {Obj是屬於公用的指標，可能別的程序會參考到這記憶体，如
             果未指向nil，則會造成程式發生錯誤，所這行不可以省}
end;

引言: Hi 插個花: Delphi有很多函數, 都是由Borland幫我們實作後方便讓我們使用, 例如一堆DateTime的相關function procedure, FreeAndNil也是同樣的道理, 若我們使用時知道他的原理便可手動去Key程式碼, 效率也許會更快, 這個函數也許是有點多餘, 但竟然Borland已經又幫我們放上去也許是有其他方面的需求. 我不是高手, 高手是正在銀幕前微笑的人.

 
   Obj.Free;
   Obj := nil;