[NumLock]

Код:

type
  TQueryPanel = class(TPanel)
  private
    FQuery: TQuery;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Query: TQuery read FQuery;
  end;
...
constructor TQueryPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FQuery:=TQuery.Create(Self);
end;

etc