filtrar tabla paradox y copiar a otra

[gerardo]

esto es lo que yo he estado haciendo

filtro los datos
procedure TForm22.AdvGlowButton4Click(Sender: TObject);
begin
form22.close
end;

procedure TForm22.AdvGlowButton5Click(Sender: TObject);
begin
query1.Active:=false;
query1.ParamByName('Folio').AsInteger:= StrToInt(Edit1.Text);
Query1.ParamByName('Materia').AsString:= ComboBox2.Text;
Query1.Prepare;
Query1.Active:=True
end;

e intento pasar los datos filtrados a unua tabla llamada portable

procedure TForm22.AdvGlowButton1Click(Sender: TObject);
begin
with query1 do
begin
Query1.Active:=False;
Query1.SQL.Add('insert into Portable (nombre, materia)');
Query1.sql.add('values(strtoint(Edit1.text),(ComboBox2.text))');
execsql;
end;
end;

me marca error en insert
como puedo mandar esos datos filtrados a la tabla portable?
o existe otro metodo

[[eduarcol]]

Estas grabando los filtros no el resultado, por otra parte ayudaria si dieras el error de ahorita asumo que debe ser diferencia de tipos