Assigned ist in der
Unit Systems.
FreeAndNil ist bei den
Indy Komponenten dabei (IdGlobal.pas) und sieht so aus:
Delphi-Quellcode:
procedure FreeAndNil(var Obj);
var
P: TObject;
begin
if TObject(Obj) <> nil then begin
P := TObject(Obj);
TObject(Obj) := nil; // clear the reference before destroying the object
P.Free;
end;
end;