У меня коллега по работе оказался чисто случайно преподавателем делфи, спросил у него, он тоже не сразу смог помочь. вместе методом тыка разобрались.
Оказалось надо так
Код:
unit Unit 1;
interface
uses ........;
procedure procedure1(a:integer);
type
TForm1= class (TForm)
...
private
{}
pablic
{}
end;
var
Form1: TForm1;
implementation
uses ....;
{$R *.dfm}
procedure procedure1(a:integer);
begin
...
end;//
lmikle: Такс, ну что? 2 месяца рид-онли?