Ayuda. Insertar registros tablas relacionadas

[Fenixgt]

Muy buenas a todos, si alguien puede ayudarme le agradecere infinitamente. Tengo una base de datos MDB (access), debo de insertar registros en dos tablas relacionadas. Tome como ejemplo estas dos tablas:

Distribuidor---------------Articulos
------------------------------------------
id_distribuidor (*) -----> id_distribuidor (*)
cif_distribuidor+++++++++id_articulo (*)
tipo_articulos++++++++++nombre_articulos

clave primaria id_distribuidor-------clave primarias:id_distribuidor
------------------------------------------------id_articulo
Probe hacerlo con ADOTable de esta forma (abreviadamente):

Código Delphi [-]
begin
  ---ADOTAbleDistribuidor.open;
  ---ADOTableDistribuidor.insert; ---ADOTableDistribuidor.FieldByName('id_distribuidor').AsString:='0001';
  ---...
  ---... //demas registros
  ADOTableDistribuidor.post;

  ---ADOTAbleArticulos.open;
  ---ADOTableArticulos.insert;
  ---ADOTAbleArticulos.FieldByName('id_articulo').AsString:='000A';
  ---...
  ---...//demas registros
  ---ADOTableArticulos.post;
end;

El asunto es que no me graba nada y me da un error que dice que la clave primaria no puede contener un valor NULL.

1)¿Cómo debo de insertar datos a estas dos tablas, sin que use dbnavigator para cada tabla?
2)¿Cuál es la forma correcta?
3)¿Por qué no me deja guardar registros?

De antemano muy agradecido con todos, siempre me han ayudado.