example of using freed objet in Delphi. Works without any errors in D6

programThatUsesFreedObject.dpr

program programThatUsesFreedObject;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils;

var
  tmpSL: TStringList;
begin
  try
    tmpSL := TStringList.Create;
    tmpSL.Free;
    tmpSL.Delimiter := '?';
    Writeln('we just used freed object without any consequences: '+tmpSL.Delimiter);
  except
    on E: Exception do
      writeln(E.Message);
  end;
  Readln;
end.