[KrycekX]

2) У меня opendialog.
С ним ещё одна проблема, вызываю opendialog, открытие документа осуществляется в новом окне, но: если нажать отмену - окно с документом всё равно откроется:

Код:

procedure TfrMain.OpenDExecute(Sender: TObject);
begin
OpenDialog1.Execute;
try
 begin
  if not(ActiveMDIChild = Nil) then
  begin
     NCreate.Click;
   if ActiveMDIChild is TfrChild then
    begin
     TfrChild(ActiveMDIChild).Frame31.RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
     end
     else
     exit;
  end;
 end;
except
 on EFOpenError do
                    begin
                    end;
end;
end;