intenta poniendo la siguiente linea:
Código Delphi
[-]with mtremito do begin
Edit;
first;
while not Eof do
begin
remitodetalle.insert;remitodetallenumremito.Value:=numremito;
remitodetalle.FieldByName('codipro').Value:= FieldByName('codigo').value;
remitodetalle.FieldByName('cantidad').Value:=fieldbyname('cantidad').Value;
remitodetalle.FieldByName('concepto').Value:=fieldbyname('descripcion').Value;
mtremito.Post;
mtremito.Next;
end;
mtremito.EmptyTable;
end;
espero que te ayude
Saludos.