在新窗口的创建事件中写入的程度为何不执行(写在FormShow事件中也不执行)

请问在母窗口双击DBGrid后发生下列事件procedure TFlist.DBGrid1DblClick(Sender: TObject);
begin
   if Fdm.ADOQ1.FieldByName('编  号').AsString <>'' then
   begin
      Fmain.empl_code:=Fdm.ADOQ1.FieldByName('编  号').AsString;
      if not assigned(Fresume) then
      begin
        Fresume := TFresume.Create(Application);
        Fresume.Show;      end;
   end;
end;在新窗口的创建事件中写入的程度为何不执行(写在FormShow事件中也不执行)procedure TFresume.FormCreate(Sender: TObject);
begin
  if Fdm.ADOQ2.Active=true then
  begin
    Fdm.ADOQ2.Close;
  end;
  Fdm.ADOQ2.SQL.Clear;
  Fdm.ADOQ2.SQL.Text:='';
  //Fresume.Edit12.Text:=Fdm.ADOQ1.FieldByName('编  号').AsString;
  Fdm.ADOQ2.SQL.Text:='';
end;