Query1.Close;
Query1.SQL.Clear;
Query1.SQL.ADD(' insert into ABC ' //ABC TableName
            ' (A1,A2)'  //A1,A2欄位值
            ' Values (' 
               #39   '1'   #39  ','   #39   '2'   #39 ')';//值
Query1.ExecSQL;

 
procedure TForm1.ButtonClick(Sender:TObject)
var lQryInsert:TQuery;
    lSQL:String;
begin
  try
    try      
      lQryInsert:=TQuery.Create(nil);
      lQryInsert.Close;
      lQryInsert.DataBaseName:=Database.DatabaseName;
      Query.Close;  Query.open; {開啟你的query中的查询数据}
      while not Query.eof do
      begin
        lSQL:='Insert into table1'  
              ' ( Field1, Field2) values '  
              ' (:Field1,:Field2)';
              
        lQryInsert.Close;
        lQryInsert.SQL.Clear; lQryInsert.SQL.Add(lSQL);
        lQryInsert.ParamByName('Field1').asString:=Query.FieldByName
                                         ('Field1').AsString;
        lQryInsert.ParamByName('Field2').asString:=Query.FieldByName
                                         ('Field2').AsString;
        lQryInsert.ExecSQL
        Query.Next;
      end;      
    except
      raise
    end;
  finally
    lQryInsert.Close; lQryInsert.Free; lQryInsert:=nil;
  end;
end;