Cпасибо, а можно прямо пальцем тыкнуть где процедура должна быть обьявлена?
Сейчас так
Код:
unit Unit 1;
interface
uses ........;
type
TForm1= class (TForm)
...
procedure procedure1(senderL TObject);
...
private
{}
pablic
{}
end;
var
Form1: TForm1;
implementation
uses ....;
{$R *.dfm}
Вот при такой конструкции из модуля 2 данная процедура не доступна.