Insertar datos en tabla recorriendo un dbgrid

[Iniciante22]

Hola a todos soy nueva en club delphi y es la primera ves que consulto de antemano disculpas por si hago cosas que no esten correctas...
estoy trabajando con delphi XE y con el motor de base de datos firerbird....
mi consulta es la siguiente estoy desarrollando el modulo de crear usuarios para un sistema de control de inventario...y me han solicitado que un usuario tenga varios perfiles el cual comprende asociar el departamento mas el area = perfil...ya tengo eso mi problema es que no se como ingresar esa relacion que la hago en un dbgrid a la tabla...osea tengo que recorrer todas las lineas del dbgri e irlas insertando en la tabla pero no se como hacerlo...
mi codigo que utilizo para insertar los datos en la base es:
with dmConecta.qAreaporRol do
begin
Close;
sql.Clear;
sql.Add('insert into AREAPORROL (IDAREAROL, ID_PERFILES, ID_ROLES, ID_USUARIO, ID_DEPTO)');
sql.Add('values (:IDAREAROL, ID_PERFILES,ID_ROLES, ID_USUARIO, ID_DEPTO)');
parambyname('IDAREAROL').AsInteger := CapturaAreaRol;
parambyname('pID_PERFILES').AsInteger := Id_AgregaPerfil;
parambyname('pID_ROLES').AsInteger := CapturaId_rol;
parambyname('pID_USUARIO').AsInteger := capId_tUsuarios;
parambyname('pID_DEPTO').AsInteger := Captura_idDeptos;
execsql;
end;


de Antemano gracias porque su foro me ha halldado demasiado...