inclusion de un mismo dato en varias tablas

[kryna]

la pregunta es la siguiente... tengo tres tablas t1,t2,t3 con sus respectivos campos.
t1 y t2 tienen un campo en comun cod_d; y t2 y t3 tienen un campo en cumun cod_c...
como hago para que cuendo incluya los compos en las tablas se inserte el mismo compo en las dosa tablas... lo estoy haciendo asi...pero solo me incluye el campo en la primera tabla... qestoy haciendo mal como y donde los direcciono

Tbconcepto.Insert;
Tbconcepto.FieldByName('cod_especialidad').AsString := DBEdit1.Text;
Tbconcepto.FieldByName('cod_concepto').AsString := DBEdit2.Text;
Tbconcepto.FieldByName('descripcion_concepto').AsString := DBEdit3.Text;
Tbconcepto.post;


Tbespecialidad.Insert;
Tbespecialidad.FieldByName('cod_especialidad').AsString := DBEdit1.Text;
Tbespecialidad.FieldByName('descripcion_especialidad').AsString := DBEdit4.Text;
Tbespecialidad.FieldByName('orden').AsString := DBEdit5.Text;
Tbespecialidad.post;

Tbmonto.Insert;
Tbmonto.FieldByName('cod_concepto').AsString := DBEdit2.Text;
Tbmonto.FieldByName('monto').AsString := DBEdit6.Text;
Tbmonto.FieldByName('fecha').AsString := DBEdit7.Text;
Tbmonto.post;

ademas cuando trato de consultar solo veo los datos de una tabla y no de las 3 qtengo, me digeron q debia tener un tquery asociado a todos los dbedit pero no se como hacerlo ... la busqueda la estoy haciendo asi, en el sql del query tengo SELECT * FROM "CONCEPTO.DB" concepto
WHERE concepto.Cod_concepto = :Codigo
if editorcodigo <> nil then ;// edit donde esta la referencia

qrybaremo.Close;


if qrybaremo.Params[0].DataType = ftFloat
then
qrybaremo.Params[0].AsFloat := StrToFloat(editorcodigo.Text)
else
qrybaremo.Params[0].AsString := editorcodigo.Text+'%';

qrybaremo.Open;

concepto.DataSet := qrybaremo;


if qrybaremo.EOF then ShowMessage('No encontré ningún Registro!');