2 bpl ссылающиеся друг на друга.

[eldalex]

Доброго времени суток!
такая проблема, есть 2 bpl с набором функций.
в первой периодически надо вызывать процедуру из второй и наоборот.

вот описание пакетов
[code]
1)

protocols2.dpk <-первый пакет
package protocols21;
.......
requires
  {$IFDEF QUILT_FASTMM}
  FastMM4,
  {$ENDIF}
  rtl4,
  grprot;<- это второй пакет
contains
  дальше идут используемые юниты...

2)

package grprot;
.............
requires
   rtl4,
   protocols21;
contains
   grprot_unit
   дальше идут остальные используемые юниты...

первый пакет успешно компилируется в bpl
а второй при компиляции выдает ошибку

package 'grprot' already contains unit 'grprot_unit'

если убрать из requires пункт protocols21 то компиляция проходит успешно, но тогда необходимые мне функции недоступны...
makeFile настроен правильно...

[Stilet]

Так у тебя же тут кросссылки...
ИМХО так не пойдет. Ты из первого пакета вызываешь второй, который требует первый...
Я бы стратегию пересмотрел - один из пакетов должен быть главным.

[eldalex]

ммм... ладно. один пакет сделать главным это понятно, тогда встает другой вопрос, как вернуть в первый пакет данные из второго? в принципе очевидно что функцией)
но тут снова непонятка вот как сейчас выглядит функция:

unit grprot_unit;

interface
Function grprotinsert():TPicture;

implementation

uses 
  MacroMngr
, Dialogs
, icCommon
, SysUtils
, Variants
, DBMSMngr
, DB
, forms
, unit1
, unit4
, unit3
, AbPr
, Proc
, Graphics;

Function grprotinsert():TPicture;
begin
application.CreateForm(TForm4, Form4);
application.CreateForm(TForm1, Form1);
application.CreateForm(TForm2, Form2);
application.CreateForm(TForm3, Form3);
form4.showmodal;
grprotinsert:=form1.image1.picture;
end;

при компиляции идет ругачка на 4ю строку, где объявляется функция, говорит что не знает что такое TPicture.
да, и еще, мне кажется что такой вызов программки несколько кривоват... можно как нить еще вызвать прогу начиная с 4й формы?
--------------------------------- добавил ---------------------------------
блин, я тупень(

interface
uses
  Graphics;
Function grprotinsert:TPicture;
implementation

uses 
  MacroMngr
, Dialogs
, icCommon
, SysUtils
, Variants
, DBMSMngr
, DB
, forms
, unit1
, unit4
, unit3
, AbPr
, Proc;

так работает)