小弟初学，一个超简单的procedure错了，请那位大哥帮忙看看。(50分)

小弟初学，一个超简单的procedure错了，请那位大哥帮忙看看。
错误信息：
[error] main.pas(30): Unsatisfied forward or external declaration: 'init_database'
部分程序：
public
procedure init_database;
implementation
{$R *.DFM}
procedure init_database;
var
Form1:TForm;
begin
Form1:=TForm.Create(Application);
Form1.Caption:='修改';
end;

小弟谢了！

声名实现时就这样写:
procedure tmyform.init_database:
tmyform是你当前的窗口类名.

你可在过程声明部分上按CTRL+SHIFT+C就可自动生成。就不会有这种错误了。
哈哈，我也是刚学来了。

多人接受答案了。