Копирование данных из одной таблицы в другую

procedure TForm10.sTreeViewEx1Change(Sender: TObject; Node: TTreeNode);
begin
if streeviewex1.Selected.SelectedIndex=2  then
while con.ADOQuery1.FieldByName('polselect').Value='Мужской' do
begin
con.queryspisokmujin.Open;
con.queryspisokmujin.Insert;
con.ADOQuery1.FieldByName('fio').asstring:=con.queryspisokmujin.FieldByName('fio').AsString   ;
con.ADOQuery1.FieldByName('name').AsString:=con.queryspisokmujin.FieldByName('name') .AsString   ;
end;

select * from spisokmyjin

if streeviewex1.Selected.SelectedIndex=2  then
con.ADOQuery1.Active:=false;
con.ADOQuery1.SQL.Clear;
con.ADOQuery1.SQL.Add('INSERT INTO spisokmyjin (Fio, name, otchestvo,doljnostb1) ');
con.ADOQuery1.SQL.Add('SELECT fio, name,otchestvo,doljnostb1 ');
con.ADOQuery1.SQL.Add('FROM sotrydniki');
con.ADOQuery1.ExecSQL;
con.ADOQuery1.SQL.Text:='SELECT * FROM sotrydniki';
con.ADOQuery1.Active:=true;

if streeviewex1.Selected.SelectedIndex=2  then
con.ADOQuery1.Active:=false;
con.ADOQuery1.SQL.Clear;
con.ADOQuery1.SQL.Add('INSERT INTO spisokmyjin (Fio, name, otchestvo,doljnostb1) ');
con.ADOQuery1.SQL.Add('SELECT fio, name,otchestvo,doljnostb1 ');
con.ADOQuery1.SQL.Add('FROM sotrydniki WHERE polselect = "мужской"') ;
con.ADOQuery1.ExecSQL;
con.ADOQuery1.SQL.Text:='SELECT * FROM sotrydniki';
con.ADOQuery1.Active:=true;