delphi数据库表单初始化问题请教

Question

初学delphi,我写了这样一个子程序,编译的时候在第一行出现了错误,在Torm的public里定义.想在窗体的其他事件中调用
请问还要在主程序的哪个部分声明一下? 
谢谢 
procedure TF_add.addinit;  //表单初始化 
var 
counter:integer; 
id:string; 
begin 
with  DataModule1 do 
begin 
                           //生成员工号 
T_counter.Filter:='ID="P"'; 
T_counter.Filtered:=True; 
T_counter.Open; 
counter:=T_counter['COUNTER_VALUE']; 
T_counter.Close; 
id:='00000'+IntToStr(counter); 
id:='P'+Copy(id,length(id)-4,5); 
//增加新记录 
T_add_user.Open; 
T_add_user.Append; 
T_add_user['ID']:=id; 
T_add_user['SEX']:='M'; 
T_add_user['STATE']:='T'; 
i_passwd.Text:=id; 
end; 
end; 

Answer 1

在Torm的public里定义.想在窗体的其他事件中调用
请问还要在主程序的哪个部分声明一下? 
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
不需要了，应该是其它错误。

Answer 2

我的form命名为F_add
是不是在publica后定义
procedure TF_add.addinit; 
可是编译错误却提示:[Error] Unit3.pas(46): Undeclared identifier: 'F_add'

Answer 3

先在uses 后进行声名;procedure addinit; 
再在主程序后定义过程procedure TF_add.addinit;