destructor TControl.Destroy;
begin
  Application.ControlDestroyed(Self);
  if (FHostDockSite <> nil) then
  begin
    FHostDockSite.RemoveFreeNotification(Self);
{$IF DEFINED(CLR)}
    FHostDockSite.UndockClient(nil, Self);
{$ELSE}
    FHostDockSite.Perform(CM_UNDOCKCLIENT, 0, Winapi.Windows.LPARAM(Self));
{$ENDIF}
    SetParent(nil);
    Dock(NullDockSite, BoundsRect);
    FHostDockSite := nil;
  end else
    SetParent(nil);
  FreeAndNil(FActionLink);
  FreeAndNil(FConstraints);
  FreeAndNil(FFont);
{$IF NOT DEFINED(CLR)}
  StrDispose(FText);      ВОТ ТУТ ОШИБКА 
{$ENDIF}
  FreeAndNil(FMargins);
  FCustomHint := nil;
  FreeAndNil(FTouchManager);
  inherited Destroy;
end;

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  Windows, System.SysUtils, Vcl.Forms, Vcl.StdCtrls, Vcl.dialogs, Vcl.Controls;

var
  Form: TForm;
  But: TButton;

begin
  try
    Form := TForm.Create(nil);
    Form.Caption := 'Caption';
    But := TButton.Create(nil);
    But.Caption := 'click';
    But.Parent := Form;
    Form.Show;

    FreeAndNil(Form);
    if But.Parent = nil then
    begin
      ShowMessage('Я узе NIL');
      But.Parent := nil;
    end;
    FreeAndNil(But);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

for idxObj := 0 to ObjectListCount do
begin
  ObjectCurrP := @ObjectList[idxObj];
  for IdxObj2 := 0 to ObjectCurrP^.listCurr do
  begin
    ObjectDelphiCurr := TObject(ObjectCurrP^.list[IdxObj2].obj);
    if (ObjectDelphiCurr <> nil) and ObjectCurrP^.list[IdxObj2].NotFree then
    begin
      if not ObjectDelphiCurr.InheritsFrom(TApplication) and
        not ObjectDelphiCurr.InheritsFrom(TScreen) and
        not ObjectDelphiCurr.InheritsFrom(TForm) then
      begin
        ObjectDelphiCurr.Free;
        ObjectCurrP^.list[IdxObj2].NotFree := False;
      end;
    end;
  end;
end;

for idxObj := 0 to ObjectListCount do
begin
  ObjectCurrP := @ObjectList[idxObj];
  for IdxObj2 := 0 to ObjectCurrP^.listCurr do
  begin
    ObjectDelphiCurr := TObject(ObjectCurrP^.list[IdxObj2].obj);
    if (ObjectDelphiCurr <> nil) and ObjectCurrP^.list[IdxObj2].NotFree then
    begin
      if not ObjectDelphiCurr.InheritsFrom(TApplication) AND
        not ObjectDelphiCurr.InheritsFrom(TScreen) then
        ObjectDelphiCurr.Free;
    end;
  end;
  SetLength(ObjectCurrP^.list, 0);
end;
SetLength(ObjectList, 0);

ListObjectId.Free;

SetLength(ObjectList, 10000);
ObjectListCount := -1;

var
  Id: integer;
begin
  if ListObjectId.TryGetValue(Ed.This.obj.Handle, Id) then
    Result := ObjectList[LOWORD(Id)].list[HiWord(Id)].obj
  else
    Result := nil;
end;