for i:=0 to n do
begin
Table2.Insert;
Table3.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
.........
Table2.Post;

var
  RD: Variant;
  MyIntArr: array [0..5] of Integer;
  i: Integer;
begin
  RD:= date;//будем искать записи, например, на текущую дату

  //заполняем массив (для теста) произвольными значениями
  for i:= Low(MyIntArr) to High(MyIntArr) do
  MyIntArr[i]:= i * 2;
  
  //если в этой Table2 для проекта с ID Table1.FieldByName('Projid').Value существует подчиненная запись на дату RD
  if Table2.Locate('Isid;ResearchDate', VarArrayOf([Table1.FieldByName('Projid').Value, RD],[]) then
  begin
    Table2.Edit; //редактируем таблю
    //записываем в соответствующие поля значения соответствующих элементов массива
    Table2.FieldByName(FldResultData0').Value:= MyIntArr[0];   
    Table2.FieldByName(FldResultData1').Value:= MyIntArr[1];
     ...     
    Table2.FieldByName(FldResultData5').Value:= MyIntArr[5];    
    Table2.Post;//сохраняем изменения
  end;
end;

-- создаем таблю с проектами
CREATE TABLE TBL_MAIN (
    ID         INTEGER NOT NULL,
    PROJ_NAME  VARCHAR(10) NOT NULL
);

ALTER TABLE TBL_MAIN ADD CONSTRAINT PK_TBL_MAIN PRIMARY KEY (ID);

--табля с исходными данными
CREATE TABLE TBL_SOURCE (
    ID       INTEGER NOT NULL,
    FK_MAIN  INTEGER NOT NULL,
    FLD_0    INTEGER,
    FLD_1    INTEGER,
    FLD_3    INTEGER,
    FLD_4    INTEGER,
    FLD_5    INTEGER
);


ALTER TABLE TBL_SOURCE ADD CONSTRAINT PK_TBL_SOURCE PRIMARY KEY (ID);

ALTER TABLE TBL_SOURCE ADD CONSTRAINT FK_TBL_SOURCE_1 FOREIGN KEY (FK_MAIN) REFERENCES TBL_MAIN (ID);

-- табля с результатами
CREATE TABLE TBL_RESULT (
    ID           INTEGER NOT NULL,
    FK_SOURCE    INTEGER NOT NULL,
    CALC_DATE    TIMESTAMP NOT NULL, --  это поле денормализует эту таблицу и его бы надо вынести в отдельную таблю, но для упрощенного примера пойдет
    FLD_RESULT_0  INTEGER,
    FLD_RESULT_1  INTEGER,
    FLD_RESULT_2  INTEGER,
    FLD_RESULT_3  INTEGER,
    FLD_RESULT_4  INTEGER,
    FLD_RESULT_5  INTEGER
);


ALTER TABLE TBL_RESULT ADD CONSTRAINT PK_TBL_RESULT PRIMARY KEY (ID);

ALTER TABLE TBL_RESULT ADD CONSTRAINT FK_TBL_RESULT_1 FOREIGN KEY (FK_SOURCE) REFERENCES TBL_SOURCE (ID);

if  not Table2.Locate('Isid',Table1.FieldByName('Projid').AsInteger,[]) then
begin
  for i:=0 to 18 do
  begin
    //вставляешь новую запись в Table2 с учетом цикла 19(!) раз 
    //и если учесть, что это detail-таблица, то не видно в коде, как ты заполняешь поле 'Isid'
    Table2.Insert;

//-----------------------------------------------------------------

    //пытаешься изменить значение полей в Table3?
    //но у тебя датасет находится в нередактируемом состоянии (где Insert/Append?)
    //исходя из предположения, что ты проигнорировал мои советы по проектированию БД
    //и  Table3 - это detail-таблица для Table1, где код заполнения поля 'rezid'?
    Table3.FieldByName('Alfa1').AsString:=floattostr(C1_[0,i]);//здесь берется значение из массива C1_
    Table3.FieldByName('Alfa2').AsString:=floattostr(C2_[1,i]);//здесь берется значение из массива C2_
    Table3.FieldByName('Alfa3').AsString:=floattostr(C3_[2,i]);
    Table3.FieldByName('Alfa4').AsString:=floattostr(C4_[3,i]);
    Table3.FieldByName('Alfa5').AsString:=floattostr(C5_[4,i]);
    Table3.FieldByName('Alfa6').AsString:=floattostr(C6_[5,i]);
    //итого, у тебя получается 6(!) двумерных массивов. WTF?
    //про Table3.Post говорить тоже излишне

//-----------------------------------------------------------------
    //учитывая 19 Insert'ов, соответственно делаем 19 раз...
    Table2.Post; 
    //и в итоге получаем 19 пустых записей в Table2 (если, конечно, поле 'Isid' допускает NULL-значение)
  end;
end
else
begin
//-----------------------------------------------------------------
  //где Table3.Locate('rezid',Table1.FieldByName('Projid').AsInteger,[])?
  //как приложение должно угадать, какую запись нужно редактировать?
  for i:=0 to 18  do
  begin
    Table3.Edit;
    Table3.FieldByName('Alfa1').AsString:=floattostr(C1_[0,i]);
    Table3.FieldByName('Alfa2').AsString:=floattostr(C2_[1,i]);
    Table3.FieldByName('Alfa3').AsString:=floattostr(C3_[2,i]);
    Table3.FieldByName('Alfa4').AsString:=floattostr(C4_[3,i]);
    Table3.FieldByName('Alfa5').AsString:=floattostr(C5_[4,i]);
    Table3.FieldByName('Alfa6').AsString:=floattostr(C6_[5,i]);
    Table3.Post;
    //на первой итерации ты прекрасно отредактировал запись
    //теперь тебе надо перейти к следующей записи с такой же 'rezid' (их должно быть еще 18)
    //но ты не сможешь, потому что эту часть кода (for..to..do) нужно завернуть в цикл
    
    //Table3.First
    //while (not Table3.EOF) and (Table3.FieldByName('rezid').Value = Table1.FieldByName('Projid').Value) do
    //begin
    //...
    //Table3.Next;
    //end;
  
    //поэтому ты редактируешь эту запись еще 18 раз :)  
 end;
end;