[NIch]

Попробуй так...

unit Unit 1;

interface

uses ........;

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

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

var
Form1: TForm1;

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