زر لاكثر من امر

اريد ان اضع زر يقوم باضافة الاسماء الى اكثر من جدول ولكن كيف يتم ترتيب الكود

procedure TForm1.N5Click(Sender: TObject);

begin

ADOTable2.DisableControls;

ADOTable1.First;

while not ADOTable1.Eof do

begin

ADOTable2.insert;

ADOTable2.FieldByName('numberh').Value:=ADOTable1.FieldByName('numberh').Value;

ADOTable2.FieldByName('name1').Value:=ADOTable1.FieldByName('name1').Value;

ADOTable2.FieldByName('name2').Value:=ADOTable1.FieldByName('name2').Value;

ADOTable2.FieldByName('name3').Value:=ADOTable1.FieldByName('name3').Value;

ADOTable2.FieldByName('name4').Value:=ADOTable1.FieldByName('name4').Value;

ADOTable2.FieldByName('alsaf').Value:=ADOTable1.FieldByName('alsaf').Value;

ADOTable2.FieldByName('alshobah').Value:=ADOTable1.FieldByName('alshobah').Value;

ADOTable2.FieldByName('alfasel').Value:=ADOTable1.FieldByName('alfasel').Value;

ADOTable2.FieldByName('all1').Value:=ADOTable1.FieldByName('all1').Value;

//åäÇ ÊÖÚ ßá ÇáÍÞæá áäÓÈåÇ ãä ÇáÌÏæá ÇáËÇäí

ADOTable2.Post;

ADOTable1.Next;

end;

ADOTable2.EnableControls;

ADOTable4.DisableControls;

ADOTable3.First;

while not ADOTable3.Eof do

begin

ADOTable4.insert;

ADOTable4.FieldByName('alsaf').Value:=ADOTable3.FieldByName('alsaf').Value;

ADOTable4.FieldByName('mosalalf').Value:=ADOTable3.FieldByName('mosalsalf').Value;

ADOTable4.FieldByName('faslname').Value:=ADOTable3.FieldByName('faslname').Value;

//åäÇ ÊÖÚ ßá ÇáÍÞæá áäÓÈåÇ ãä ÇáÌÏæá ÇáËÇäí

ADOTable4.Post;

ADOTable3.Next;

end;

ADOTable4.EnableControls;

adOTable6.DisableControls;

ADOTable5.First;

while not ADOTable5.Eof do

begin

ADOTable6.insert;

ADOTable6.FieldByName('alsaf').Value:=ADOTable5.FieldByName('alsaf').Value;

ADOTable6.FieldByName('safname').Value:=ADOTable5.FieldByName('safname').Value;

ADOTable6.FieldByName('fsolcount').Value:=ADOTable5.FieldByName('fsolcount').Value;

//åäÇ ÊÖÚ ßá ÇáÍÞæá áäÓÈåÇ ãä ÇáÌÏæá ÇáËÇäí

ADOTable6.Post;

ADOTable5.Next;

end;

ADOTable6.EnableControls;

end;