كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

تم ايجاد الحل باذن الله

PHP كود :

procedure TForm1.BtnvalidateClick(Sender: TObject);
var x : integer;
    begin
   for x:=0 to CheckListBox1.Items.Count -1 do
  begin
              Allow1.insert;
       Allow1.FieldByName('N_Form').AsInteger:=
       Allow1.RecordCount + 1;
       
       Allow1.FieldByName('Name').AsString:= CheckListBox1.Items.Strings[x];
      
       Allow1.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[x];
      end;
end;