[maxzama]

Gracias a todos, por su ayuda.

por fin:

Codigo Final(con elegancia,jaja):

begin
with Dmodulo.RegistroMadre2 do
begin
SQL.Clear ;
SQL.Add('select * from RegistroMadre ');
Open;
First;
while not Dmodulo.RegistroMadre2.Eof do
begin
with Dmodulo do
begin
Dias_Madre_I.SQL.Text:=Dmodulo.Dias_M_I.InsertSQL.Text;
Dias_Madre_I.ParamByName('CEDULA').AsString:=DMODULO.RegistroMadre2.FieldByName('Cedula').AsString;
Dias_Madre_I.ExecSQL;
Dias_Madre_I.SQL.Text:=('select * from RegistroMadre ');
SHOWMESSAGE('A sido Insertado');
end;
Dmodulo.RegistroMadre2.Next;
end;
Dmodulo.ibt.Commit;
end;
end;