ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا

جزاك الله أخي الكريم عنتر ، تم حل المشكلة و لله الحمد و المنة

كود :
procedure TForm1.Button2Click(Sender: TObject);
begin

// نقل من جدول إلى جدول
 abstable2.First ;
 while not abstable2.Eof do

 begin
abstable3.Append;
abstable3.Insert;
abstable3.FieldByName('ARTICLE').AsWideString := abstable2.FieldByName('ARTICLE').AsWideString;
abstable3.FieldByName('prix_u').AsString := abstable2.FieldByName('prix_u').Asstring;
abstable3.FieldByName('prix_g').AsString := abstable2.FieldByName('prix_g').Asstring;
abstable3.FieldByName('qnt').AsString := abstable2.FieldByName('qnt').Asstring;
abstable3.Post;
 // القيام بالعملية الحسابية لحذف المباع من المخزون
 abstable2.First;
       abstable1.Edit;
      abstable1.FieldValues['qnt']:=abstable1.FieldValues['qnt']
       - abstable2.FieldValues['qnt'];
       abstable1.Post;
       abstable1.Next;

// حذف السجلات من الجدول بعد إنتهاء الطلبية
       abstable2.Delete;

    end;

 exit;

end;