Использование функций из других форм

[JustKurt]

Добрый день.
Сори, если такой вопрос уже был, но просто не могу разобраться...

Второй день бьюсь с использовании функций из других форм.
Как прописывать/добавлять знаю - но, например, у меня большая часть функций находится в Unit1.pas, часть переменных (массивы) в boots.pas.
Добавляю

 Uses Unit1, boots;

Переменные из boots.pas работают, все нормально. Но функции из Unit1 не работают.
Пробовал делать так

scandev3 - функция из Unit1

if Unit1.scandev3=true then begin

результат такой же - компиляция рушится на всех функциях из Unit1.

В чем может быть причина?

P.S. хотел использовать фрейм в целях облегчения основного интерфейса, и сделать его ярлыком к нужным функциям + в нем некоторые функции выполнять.

Спасибо за внимание.

[Kotofff]

А в модуле Unit1 прописан модуль boots ?
Я так понимаю они связаны... если

большая часть функций находится в Unit1.pas, часть переменных (массивы) в boots.pas

[JustKurt]

да, прописан.
В Unit1 - вся основа моей программы, в ней прописано множество других модулей и все работает....

[Kotofff]

Тогда подробно пиши как прописано во всех модулях и поясни где какой модуль. Полного кода не надо, просто раздел uses.

[JustKurt]

Unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Api, Api2, Registry, Masks, Boots, ComCtrls,
  ExtCtrls, ScreenBoots, IniFiles, XPMan, clipbrd, PMfiles, D2XXUnit, BB5_usb, strutils,
  jpeg, Menus;
......

implementation

uses Unit2, Unit6;

Unit6 - собственно это и есть нужный юнит, в котором трабла.

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;

type
  TPMedit = class(TFrame)
    rb1: TRadioButton;
    rb2: TRadioButton;
    rb3: TRadioButton;
    rb4: TRadioButton;
    rb5: TRadioButton;
    rb6: TRadioButton;
    grp1: TGroupBox;
    btn1: TButton;
    btn2: TButton;
    edt1: TEdit;
    grp3: TGroupBox;
    rb7: TRadioButton;
    rb8: TRadioButton;
    rb9: TRadioButton;
    rb10: TRadioButton;
    rb11: TRadioButton;
    rb12: TRadioButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses
  Boots, Unit1;

{$R *.dfm}

[vovk]

Чтобы функции или процедуры были доступны из других модулей их необходимо описать в разделе interface.
Из того что выложили не понятно описаны они или нет.

[JustKurt]

Хм... Можно поподробнее?

я сделал так -

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Boots, Unit1;

ситуация не изменилась....

[vovk]

нее я говорю о описании функции в модуле.

ну както так можно

  function a_plus_b(a,b:integer):integer;
var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
 function a_plus_b(a,b:integer):integer;
 begin
 result:=a+b;
 end;

[JustKurt]

Вы предлагаете скопировать функцию в модуль новый?

Они слишком громоздкие, и результат некоторых нужно выводить и на форме Unit1 и на форме Unit6...

Вроде правильно описал....

[vovk]

зачем новый?
аа посмотрел как используете понятно, в вашем случае вызывать надо скорее всего так

 if Form1.scandev3=true then begin

А обьявлять в public разделa interface