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

[Anter2010]

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

كيف يتم نقل محتوي ال Checklistbox الى قاعدة البيانات وحفظ اعدادات Adminstrator

PHP كود :

procedure TForm1.BtnvalidateClick(Sender: TObject);
var x,t : Integer;
       r:string;
begin
 if MatchPass(Users,ComboBox1.Text,UserEdt.Text) then
begin
   For x:=0 To (CheckListBox1.Items.Count-1) do
     if CheckListBox1.Selected[x] then
          begin
         r:=r+CheckListBox1.items[x];
         Allow.Last;
         t:= AllowN_form.AsInteger + 1;
         Allow.Insert;
         AllowN_form.AsInteger:=t;
         Allow.FieldByName('Name').AsString:= r;
         Allow.FieldByName('Active').AsBoolean:= true;
         Allow.Next;
         Allow.Post;

     Use_Form.Insert;
     Use_Form.FieldByName('Authorization').AsBoolean:= true;
     Use_Form.Next;
     Use_Form.Post;
         //******************************************************//
                   end
          else
          Use_Form.FieldByName('Authorization').AsBoolean:= false;
          Allow.FieldByName('Active').AsBoolean:= false;
     end;
Btnvalidate.Enabled:=False;ClientWidth:=355;ClientHeight:=473 ;
Position:=poScreenCenter;Btnlicensed.Enabled:=True;
     end; 


لكل من لديه فكرة المحاولة في المرفق