var m :integer;
  begin
 m:=0;
 for m := 0 to StringGrid1.RowCount-1 do
 begin
 DataModule1.AddQuery.SQL.Clear;
 DataModule1.AddQuery.SQL.Text:= 'INSERT INTO Матч ( Код_К1, Код_К2, Результат_К1, Результат_К2 ) SELECT Команда.Код_К, Команда_1.Код_К, '+QuotedStr(StringGrid1.Cells[2, m+1])+', '+QuotedStr(StringGrid1.Cells[3, m+1])+'  FROM 50сверху, 50снизу, Команда, Команда AS Команда_1 WHERE ((('+QuotedStr(StringGrid1.Cells[0, m+1])+'=[Команда].[Название]) AND (('+QuotedStr(StringGrid1.Cells[1, m+1])+'=[Команда_1].[Название]))))';
 DataModule1.AddQuery.ExecSQL;
 end;