Прикладная библиотека компаса на Делфи

[Санька_Грозный]

Доброго времи суток.
Следущая проблемма: Я пишу прикладную библиотеку На делфи для компас. Моя библиотека работает исправно, но есть одно но , сама библиотека состоит из основной формы, нескольких кнопок 3-4 текс-эдитки(она работает исправно), когда пытаюсь подключить к моей основной форме дополнительную форму(по средствам нажатия на новую кнопку), то тут то и вылетает ошибка. Если кто то знает в чем проблемма, то пожалуйсто найдите ошибку в моих исходниках:
http://download.files.namba.kg/files/2831871/myProject.rar?o3tgiCAxjpuAW6f%2FmF5hJerCQJFwC4ulZuTCGYnIvstUQQ%3D%3D

ДОБАВЛЕННО

Да и кстати проект делфи настроен на след. дирикторию :  c:\   , т.е для того что бы вам не пришлось перенатстраивать мой проект, а просто его запустить достаточно извлечь файлы из архива на диск С.

[Sabahs]

procedure LibraryEntry(command: WORD); pascal;
var GearsForm : TGearsForm;
begin
    kompas := KompasObject(CreateKompasObject);
    if (kompas = nil) then exit;
    Application.Handle := kompas.ksGetHWindow;
    kompas.ksEnableTaskAccess(0);
    GearsForm := TGearsForm.Create(Application); <- Здесь Вы создали главную форму
    GearsForm.ks := kompas;
    GearsForm.ShowModal;
    GearsForm.Free;
    kompas.ksEnableTaskAccess(1);
    Application.Handle := 0;
    kompas := nil;
end;


procedure TGearsForm.Button3Click(Sender: TObject);
begin
     Form1.ShowModal; <- Здесь ошибка, где Вы создали форму Form1, чтобы её вызывать?
     Hide;
end;

[Санька_Грозный]

Sabahs, да:),  проблемма очевидна, но я не совсем понимаю как это сделать, програмирование прикладных библиотек в среде компас для меня впервой. Я малость код подредактировал, вроде все продумал, но опять таки не получается, может быть какие то настройки компаса не верны?, если кто знает, то пажалуйста поделитесь со мной, я буду очень рад получить любую помощь. Спасибо.

Вот измененные коды библиотеки: http://download.files.namba.kg/files/2842234/myProject.rar?o3tn8ZoanXPyh0uGIaeigkEeQuLDD0YIs7mQNQki8ZinrSo%3D

[Sabahs]

Вам нужно форму создать
Form1:=TForm1.Create(Application);
а потом выгрузить перед закрытием главной формы.
Form1.Free;

[Санька_Грозный]

Sabahs сделал как вы советуите, но к большому сожалению, проблемма остается актуальной.

[Sabahs]

procedure LibraryEntry(command: Word); pascal;
begin
  if GearsForm=nil then
   begin
    iKompas:=KompasObject(CreateKompasObject);
    if iKompas=nil then Exit;
    Application.Handle:=iKompas.ksGetHWindow;
    GearsForm:=TGearsForm.Create(Application);
    Form1:=TForm1.Create(Application);
    GearsForm.Show;
    iKompas.ksSystemControlStart('Остановить GearsForm');
    iKompas.ksSystemControlStop;
    iKompas:=nil;
    Form1.Free;
    Form1:=nil;
    GearsForm.Free;
    GearsForm:=nil;
   end else ShowWindow(GearsForm.Handle,SW_RESTORE);
end;

[Санька_Грозный]

Спасибо за помощь Sabahs, оказывается у меня просто компас глючил:)