怎么这些语句都不执行，请高手帮忙看看

procedure Tfrmcgcx.cxButtonEdit1Click(Sender: TObject);
begin
  if Trim(xm_ComboBox.Text) = '' then
    begin
      MessageBox(self.Handle,'请选择好材料','百科软件',0);
      xm_ComboBox.SetFocus;
      Exit;
    end;  if Trim(xm_ComboBox.Text) = '型材' then  cgppname := 'TZShowXC';
  if Trim(xm_ComboBox.Text) = '玻璃' then  cgppname := 'TZShowBL';
  if Trim(xm_ComboBox.Text) = '配件' then  cgppname := 'TZShowPJ';
  if Trim(xm_ComboBox.Text) = '铝板' then  cgppname := 'TZShowQt';  Self.Enabled:= False;
  frmCldaJh:= TfrmCldaJh.Create(self);
  with frmCldaJh do
    begin
        with frmCldaJh.ADOCllx do
          begin
            Close;
            Parameters.Refresh;
            ProcedureName:= cgppname;
            Open;
          end;
        iFlag:= 1;
    end;
end;
当程序执行到   frmCldaJh:= TfrmCldaJh.Create(self);
这一句时，后面的语句就不执行了，百思不得其解
搞了两天了请高手帮帮忙呀