pasar un dato de una tabla a otra

[betty_loo]

tengo una forma que tiene un boton de agregar
En el botón de agrega r tengo este código

application.createform(todtedi,odtedi);
odtedi.show;
odt.hide;
a:= 1;
odtedi.show;
odtedi.add;
query1.close;
query1.open;

y manda a llamar a otra forma

Al ingresar los datos doy clic en el botón siguiente que tiene este codigo

var cia:double;
begin
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;

showmessage(inttostr(pac)) ;
showmessage(floattostr(sigodt));

descripcion.DBEdit1.Text := (inttostr(pac));
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;
descripcion.DBEdit1.Text := dbedit1.text;
begin
if tbodt.State in[dsinsert] then
valida;
if tbodt.State in[dsedit] then
begin

tbodt.post;
showmessage('*** El registro Se Modifico ***');
sw := 0;
end;
if tbodt.State in[dsinsert] then
begin
if sw = 0 then
begin
if tbodt.state in[dsinsert] then
begin
tbodt.post;
tbodt.Insert;
odtedi.hide;
descripcion.add;
descripcion.DBEdit1.Text := odtedi.DBEdit1.text;
// application.createform(tdescripcion,descripcion);
descripcion.show;
end;
end
end;
sw:=0;
end;

y se guarda y borra todo el contenido de los dbedit’s y no guarda valor del dbedit que quiero que pase a la otra pantalla,

El valor que quiero conservar es el de odt nº que es el campo que viene al principio en ambas pantallas y es la clave principal de las dos tablas