with ADOQuery2 do begin
          Close;
          Sql.Clear;
          sql.Text := 'delete * from infochange';
          ExecSQL;
  end;