[NIch]

А так???

Код:

unit Unit 1;

interface

uses ........;

type 
TForm1= class (TForm)
...
private
{}
pablic
{}
end;

var
Form1: TForm1;

procedure procedure1;//воткни ее сюда

implementation
uses ....;
{$R *.dfm}