filtrar tabla paradox y copiar a otra

[gerardo]

ese es el menaje de error que me da el delphi
first chance excetion at $7665b09E exception class EDBEngineError with message 'invalid use of keyword. token: INSERTLine numbre 2'. process SICAL.exe

este es el codigo para filtrado

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;
hasta aqui no hay problema

codigo para pasar los datos ya filtrados este es el que da el problema
procedure TForm22.AdvGlowButton1Click(Sender: TObject);
begin
Table1.Edit;
with query1 do
begin
Query1.SQL.Add('INSERT INTO portable (Materia)');
Query1.SQL.Add('SELECT materia FROM califica');
Query1.SQL.Add('WHERE Materia = Edit1.text');
Query1.ExecSQL;

end;


end;

ESTE CODIGO LO ESCRIBI PERO NO ME FUNCIONA