Приклодная библиотека КОМПАС , на Делфи

[Летучий_СкилетиК]

День(ночь) добрый(ая).
Есть прикладная библиоке на компас, которая должна расчитывать параметры обьекта и передает управление компасу, который в дальнейшем строит 3D модель. Мой проект состоит из основной рабочей формы.
Проблемма в следующем, мне нужно создать в проекте еще одну форму, т.е. на основную форму кинул кнопку и при нажатии на нее должна вылетать новая форма, но тут у меня за место долгожданной формы вылетает ошибка(((.

вот мой код:

[Человек_Борща]

Не верю что исходник в 1 мегабит...

Лучше покажите код кнопки которую тыкаете...

[Летучий_СкилетиК]

Лучше покажите код кнопки которую тыкаете..

, целиком всю библиотеку слил (с потрохами).

Не верю что исходник в 1 мегабит...

прийдется поверить

unit BuiltUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ksTLB, ksAuto, ksConstTLB, LDefin3D, LDefin2D,math, StdCtrls, Unit1;

type
  TGearsForm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    kompas : KompasObject;
  end;

var GearsForm : TGearsForm;

implementation

{$R *.dfm}

procedure TGearsForm.Button2Click(Sender: TObject);
begin
   if CloseQuery then close;
end;

procedure TGearsForm.Button3Click(Sender: TObject);
begin
// а вот тут я на кнопку тыркаю)    
 Form1.ks := Kompas;
     Form1.ShowModal;
     Hide;
end;