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

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Таб2 (ФИО, номер) ');
ADOQuery1.SQL.Add('SELECT ФИО, номер ');
ADOQuery1.SQL.Add('FROM таб1');
ADOQuery1.ExecSQL;

ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM Таб1 WHERE номер LIKE '''+Edit1.text+'%''');
ADOQuery2.Active:=True;

ADOQuery1.Append;
For I := 0 To ADOQuery2.Fields.Count-1 Do
  if ADOQuery1.Fields[i].FieldName <> '' Then
    ADOQuery1.Fields[i].Value := ADOQuery2.Fields[i].Value;
ADOQuery1.Post;
adoquery1.Refresh;

ADOQuery1.SQL.Add('WHERE номер='+Edit1.Text+');
ADOQuery1.SQL.Add('WHERE номер=('Edit1.Text');

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='SELECT * FROM calc WHERE = ' +Edit1.Text;
ADOQuery1.Open;
end;

ADOQuery1.SQL.Text:='SELECT * FROM calc WHERE = :N1';
ADOQuery1.Parameters.ParamByName('N1').Value:=Edit1.Text;
ADOQuery1.Open;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='SELECT * FROM calc WHERE = ' + strToInt(Edit1.Text);
ADOQuery1.Open;
end;

ADOQuery1.SQL.Text:='SELECT * FROM calc WHERE ID IN (' + Edit1.Text + ')';