كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات

[بولنوار]

تحية طيبة و رمضان كريم

عندي هذا الكود ينقل البيانات من جدول الى جدول لكل عملية نقل اقوم بضغظ الزر
احتاج الى عمل حلقة تكرارية للكود بعدد سجلات الجدول الاول بحيث ينقل بظغطة واحدة

كود :

procedure TForm40.Button3Click(Sender: TObject); begin ABSTable1.open; if not ABSTable1.locate('date',dbedit1.text,[]) then begin ABSTable1.Append; ABSTable1.FieldByName('date').Value:=dbedit1.Text; ABSTable1.FieldByName('tim1').Value:=dbedit2.Text; ABSTable1.FieldByName('taw1').Value:=dbedit3.Text; ABSTable1.FieldByName('tim2').Value:=dbedit4.Text; ABSTable1.FieldByName('taw2').Value:=dbedit5.Text; ABSTable1.Post; ADOquery1.Next; end elSe ShowmeSSage('هذا السجل موجود بالفعل '); end;