[luisreg]

Gracias marcoszorrilla me ha funcionado muy bien tu explicacion para guardar el resultado del query en una tabla y lo que queria hacer era tambien guardar los campos calculados y tenidendo en cuanta tu segundo ejemplo me quedo asi:

procedure TfrmCarteraCtes.guardaClick(Sender: TObject);
var
 id_concen: integer;
 var3: string;
begin
         While Not qryConsulta.Eof do
         begin
           tblConCteMes.Last;
           id_concen:=tblConCteMes.FieldByName('id_concentrado').AsInteger;
           inc(id_concen);
           var3:=IntToStr(id_concen);
           tblConCteMes.Insert;
           tblConCteMes.FieldValues['id_concentrado']:=StrToInt(var3);
           tblConCteMes.FieldValues['id_cliente']:=qryConsulta.FieldValues['cliente'];
           tblConCteMes.FieldValues['fecha']:=fecha1.Date;
           tblConCteMes.FieldValues['saldo']:=qryConsulta.FieldValues['Saldo'];
           qryConsulta.Next;
         end;
         tblConCteMes.Post;
end;

agradezco tu ayuda me has sacado de un ampuro, saludos.