用循环吧
for i := 1 to n do begin
  for j := 1 to m do begin
    Adoquery1.SQL.Text := 'INSERT INTO 表名(DEBH) VALUES('''+IntToStr(n)+'-'+IntToStr(m)+''');
    Adoquery1.ExecSQL;
  end;
end;