ああなるほど
 実装部の
procedure DDFileOpen(Sender:TObject; var DFName: string);
は確かに手続きだけど、ホントはメソッドにしたかったんだね
procedure TForm1.DDFileOpen(Sender:TObject; var DFName: string);
 とクラス名を付けてやる事

それから上のForm1でのメソッド定義部はpublishに書いてあるけどpublicに移した方がいい