帮忙看看这程序怎样错！

Question

private
 { Private declarations }
 procedure createchild(const title:string);//报错，错误在下面
........
 procedure TForm1.Open1Click(Sender: TObject);
  begin
   opendialog1.Execute;
    createchild(opendialog1.FileName);
    currchild.RichEdit1.Lines.LoadFromFile(opendialog1.FileName);
end;[Error] Unit1.pas(37): Unsatisfied forward or external declaration: 'TForm1.createchild'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

Answer 1

定义时要加上TForm1
 procedure TForm1.createchild(const title:string);
Var
 ...
begin
...
end;