@min int, @max int, @Nomer_Protokol varchar(15), @Code int, @Date_VK date

INSERT INTO Remont1 (Act_VK, Tematika, Naimenovanie, Zav_Nomer, Dec_Nomer, Zakazchik, Akt_Na_Issledovanie, Opisanie_VK, Nomer_Protokol2, Etap, Date_Akt_Na_Issledovanie, Date_Post, Date_Proizv, Date_VK, Nomer_Protokol)
select @Nomer_Protokol, a8.Tematika, a8.Naimenovanie, a8.Zav_Nomer, a8.Dec_Nomer, a8.Otkyda, a8.Akt_Na_Issledovanie, a8.Opisanie, @Code, a8.Etap, a8.Date_Akt_Na_Issledovanie, a8.Date_Dokument, a8.Date_Proizv, @Date_VK,
??????
FROM (SELECT Tematika, Naimenovanie, Zav_Nomer, Dec_Nomer, Otkyda, Akt_Na_Issledovanie, a4.Opisanie, Etap, Date_Akt_Na_Issledovanie, Date_Dokument, Date_Proizv FROM VK a3 INNER JOIN Dannie_VK a4 on a3.ID_VK=a4.ID_VK WHERE a3.Nomer_Protokol=@Nomer_Protokol and a3.Date_VK=@Date_VK) a8
cross apply (SELECT TOP (@Max-@Min+1) @Min-1+row_number() over(order by t1.number) as N FROM master..spt_values t1) a5

ALTER PROCEDURE [dbo].[MultiInsert_VK]
@min int, @max int, @Nomer_Protokol varchar(15), @Code int, @Date_VK datetime, @Error varchar(150) OUTPUT
AS
Declare @Val1 as int, @Val2 as int;
SELECT @Val1=COUNT(fff.N) FROM (SELECT TOP (@Max-@Min+1) @Min-1+row_number() over(order by t1.number) as N FROM master..spt_values t1) fff
SELECT @Val2=COUNT(b2.ID_Dannie_VK) FROM VK b1 INNER JOIN Dannie_VK b2 on b1.ID_VK=b2.ID_VK WHERE b1.Nomer_Protokol=@Nomer_Protokol and b1.Date_VK=@Date_VK

IF @Val1=@Val2
INSERT INTO Remont1 (Act_VK, Tematika, Naimenovanie, Zav_Nomer, Dec_Nomer, Zakazchik, Akt_Na_Issledovanie, Opisanie_VK, Nomer_Protokol2, Etap, Date_Akt_Na_Issledovanie, Date_Post, Date_Proizv, Date_VK, Nomer_Protokol)
select @Nomer_Protokol, a8.Tematika, a8.Naimenovanie, a8.Zav_Nomer, a8.Dec_Nomer, a8.Otkyda, a8.Akt_Na_Issledovanie, a8.Opisanie, 
@Code, a8.Etap, a8.Date_Akt_Na_Issledovanie, a8.Date_Dokument, a8.Date_Proizv, @Date_VK, id
FROM (SELECT Tematika, Naimenovanie, Zav_Nomer, Dec_Nomer, Otkyda, Akt_Na_Issledovanie, a4.Opisanie, Etap, Date_Akt_Na_Issledovanie, Date_Dokument, Date_Proizv, 
ROW_NUMBER() OVER(ORDER BY ( SELECT 1 )) + @min-1 AS id 
FROM 
VK a3 INNER JOIN Dannie_VK a4 on a3.ID_VK=a4.ID_VK WHERE a3.Nomer_Protokol=@Nomer_Protokol and a3.Date_VK=@Date_VK) a8
ELSE
BEGIN
SET @Error='Количество актов не соответствует количеству заводских номеров' 
RETURN
END

declare @p5 varchar(150)
set @p5=NULL
declare @p6 datetime
set @p6='2020-01-27 00:00:00'
exec MultiInsert_VK;1 '10','14','190/56  ','190',@p5 output,@p6 output
select @p5, @p6

declare @p5 varchar(150)
set @p5=NULL
exec MultiInsert_VK;1 '10','14','190/56  ','190',@p5 output,'2020-01-27 00:00:00'
select @p5

procedure TForm47.cxButton1Click(Sender: TObject);
var
Ret_val: string;
begin
if (cxComboBox1.Text='') or (cxComboBox1.Text=NULL) or (cxComboBox2.Text='') or (cxComboBox2.Text=NULL) or (cxTextEdit1.Text='')
or (cxTextEdit1.Text=NULL) or (cxTextEdit2.Text='') or (cxTextEdit2.Text=NULL) or (cxTextEdit3.Text='') or (cxTextEdit3.Text=NULL)
or (cxDateEdit1.Text='') or (cxDateEdit1.Text=NULL)then
ShowMessage('Одно или несколько полей не заполнены')
Else
  Begin
    ADOStoredProc1.Close;
    ADOStoredProc1.ProcedureName:='MultiInsert_VK;1';
    ADOStoredProc1.Parameters.Clear;
    ADOStoredProc1.Parameters.CreateParameter('@min',ftString, pdInput, 10, NULL );
    ADOStoredProc1.Parameters.CreateParameter('@max',ftString, pdInput, 10, NULL);
    ADOStoredProc1.Parameters.CreateParameter('@Nomer_Protokol',ftString, pdInput, 15, NULL);
    ADOStoredProc1.Parameters.CreateParameter('@Code',ftString, pdInput, 10, NULL);
    ADOStoredProc1.Parameters.CreateParameter('@Error',ftString, pdOutput, 150, NULL);
    ADOStoredProc1.Parameters.CreateParameter('@Date_VK',ftDateTime, pdInput, 30, NULL);
    ADOStoredProc1.Parameters.ParamByName('@min').Value:=cxTextEdit3.Text;
    ADOStoredProc1.Parameters.ParamByName('@max').Value:=cxTextEdit2.Text;
    ADOStoredProc1.Parameters.ParamByName('@Nomer_Protokol').Value:=cxComboBox1.Text;
    ADOStoredProc1.Parameters.ParamByName('@Code').Value:=cxTextEdit1.Text;
    ADOStoredProc1.Parameters.ParamByName('@Date_VK').Value:=cxComboBox2.Text;
      try
        ADOStoredProc1.ExecProc;
      finally
        if ADOStoredProc1.Parameters.ParamByName('@Error').Value<>NULL then
          begin
            Ret_val := ADOStoredProc1.Parameters.ParamByName('@Error').Value;
            ShowMessage(Ret_val)
          end
      else
        begin
          Showmessage('Номера введены');
          Form4.ADODataSet1.Refresh;
        end;
      end;
  end;
end;