Sql[i]) = ''GO'' then
      begin
        adq.SQL.Text := ClrNoRun(adq.SQL.Text);
        if Length(Trim(adq.SQL.Text)) > 0 then
        begin
          try
            //ShowMessage(adq.SQL.Text);
            adq.ExecSQL;
            adq.SQL.Clear;
          except
            clipboard.AsText := adq.SQL.Text;
            Exit;
          end;
        end;
      end
      else
      begin
        bPass := False;
        for j := 0 to strNoRun.Count - 1 do
        begin
          if pos(strNoRun[j], strSql[i]) > 0 then
          begin
            bPass := true;
            Break;
          end;
        end;
        if not bPass then
          adq.SQL.Append(strSql[i]);
      end;
    end;
    adq.SQL.Text := ClrNoRun(adq.SQL.Text);
    if Length(Trim(adq.SQL.Text)) > 0 then
      try
        adq.ExecSQL;
      except
        clipboard.AsText := adq.SQL.Text;
      end;
    result := true;
  except

  end;
  adq.SQL.Clear;
  strSql.Free;
  strNoRun.Free;
end;