Добавление записи в таблицу через таблицу

[Anton911]

Всем привет, в моей базе данных есть две таблицы, "Партии" и "Ходы_партии", между ними связь 1 ко многим соответственно по "Номер_партии".
В общем вопрос, как добавить записи в таблицу "Ходы_Партии" через таблицу "Партии"?

Вот код:

procedure bd_FinishCloseArena(Player_1,Player_2,TimeStart,TimeFinish:string;TableId,Time,ArenaResult:integer);
var I:integer;
Arena:pArena;
begin
Arena:=Arena_GetArenaFromTable(TableId);
with Form_Server.ADOQuery do
    Begin
    Close;
    SQL.Text := 'INSERT INTO Партии (Белыми_играет,Черными_играет,Начало_игры,Окончание_игры,Время_хода,Код_результата) VALUES (:player1,:player2,:Start,:Finish,:Time,:Result)';
      Parameters.ParamByName('player1').Value := Player_1;
      Parameters.ParamByName('player2').Value := Player_1;
      Parameters.ParamByName('Start').Value :=TimeStart;
      Parameters.ParamByName('Finish').Value :=TimeFinish;
      Parameters.ParamByName('Time').Value :=Time;
      Parameters.ParamByName('Result').Value :=ArenaResult;
      for I := 1 to Arena.StepCount do
        Begin
        SQL.Add('INSERT INTO Партии.Ходы_партии (Номер_хода,Белые-Черные,Фигура,Поле-Откуда,Поле-Куда) VALUES (:StepId,:BlackWite,:FigureId,:From,:iIn)');
        Parameters.ParamByName('StepId').Value := I;
        Parameters.ParamByName('BlackWite').Value :=Arena.Steps[I].WhiteBlack;
        Parameters.ParamByName('FigureId').Value :=Arena.Steps[I].FigureId;
        Parameters.ParamByName('From').Value :=Arena.Steps[I].CheckFrom;
        Parameters.ParamByName('iIn').Value :=Arena.Steps[I].CheckIn;
        End;
    ExecSQL;
    End;
end;