Открытие файлов в MDI приложении

procedure TForm1.Open1Click(Sender: TObject);
var 
 Child:TD8Child;
begin
 If not OD.Execute then exit;
 Child:=TD8Child.Create(Self);
 Child.Memo1.Lines.LoadFromFile(OD.FileName);
 Child.Caption:=ExtractFileName(OD.FileName);
 Child.Filename:=OD.FileName; // <-- выдает "Undeclared identifier"
end;

OpenDialog.FileName

Child.Filename

procedure TForm1.Open1Click(Sender: TObject);
begin
     if OpenDialog1.Execute then
     begin
          with TfrmEditForm.Create(Self) do
          begin
               ParentForm:=self;
               FileName:=OpenDialog1.FileName;
               LoadFile;
               
          end;
     end;
end;

ParentForm:=self;

procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
  CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
 
procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
  if OpenDialog.Execute then
    CreateMDIChild(OpenDialog.FileName);
end;

FormStyle:=fsMDIChild;

procedure TForm1.Open1Click(Sender: TObject);
begin
 If not OD.Execute then exit;
 Child:=TD8Child.Create(Sender);
 Child.Memo1.Lines.LoadFromFile(OD.FileName);
 Child.Caption:=ExtractFileName(OD.FileName);
 Child.BringToFront;
end;

Child:=TD8Child.Create(Sender);

Child:=TChild.Create(Self);

procedure TviborForm.sBitBtn1Click(Sender: TObject);
begin
if mainsravnenform = nil then
 begin
  mainsravnenform := Tmainsravnenform.Create(Application);
 end else mainsravnenform.BringToFront;
 Close;
end;

procedure TForm1.Open1Click(Sender: TObject);
var 
 Child:TD8Child;
begin
 If not OD.Execute then exit;
 Child:=TD8Child.Create(Self);
 Child.Memo1.Lines.LoadFromFile(OD.FileName);
 Child.Caption:=ExtractFileName(OD.FileName);
 Child.Filename:=OD.FileName;
end;