unit kkform;
{
  Vesa Lappalainen, vesal@math.jyu.fi

  How to get a component select bug for Delphi 3.01
  ==================================================
  0) Make a unit kkform with form with one TButton in (like this file)
  1) Make a project with form that holds on TLabel (let it be Label1)
     (lets save the unit as Unit1).
  2) Add kkform to interface uses clause
  3) Take kkform to editor
  4) Either add or remove or compile something from components
     Component/Install Package...
  5) Press F12 over Unit1 to get the Form visible
  6) Try to select Focus control for Label1
  => You get access violation ....

  Notice also the following:

  7) Open kkform form
  8) Try to select Focus control for Label1 in Unit1
  => KkTestForm.Button1 is in the list even it should not be there!!!

  If kkform is removed from uses clause, then there is no problem!
  Even no compile.

}


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  stdctrls;

type
  TKKTestForm = class(TForm)
    Button1: TButton;
  private
  public
  end;

var
  KKTestForm: TKKTestForm;

implementation

{$R *.DFM}

end.