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;

Recuerda poner los tags al código fuente, ejemplo:



Gracias ;)

Código Delphi [-]
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;

No me salio la opcion de Resaltar sintaxis delphi.

Pero gracias, por decirlo...

Sí, seguramente se produjo un alineamiento de Venus con Marte y por eso no te salió :D

jaja, si. esta bueno...

cuando le doy editar. no sale la imagen de Resaltar sintaxis delphi.

Debes hacerlo cuando estás escribiendo el mensaje.
Si lo estás editando, creo que tienes el botón "Ir a avanzado"