[Casimiro Notevi]

Empezado por AgustinOrtu

procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;

Como a todos los novatos, te recuerdo el uso de las etiquetas para el código